From e36e142ea4f1da3224e6571ad48c068759873059 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sun, 18 Jan 2004 14:05:59 +0000
Subject: fix comments. use //o if could.

---
 fml/lib/FML/Config/Convert.pm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/fml/lib/FML/Config/Convert.pm b/fml/lib/FML/Config/Convert.pm
index 9781c587..2282ff63 100644
--- a/fml/lib/FML/Config/Convert.pm
+++ b/fml/lib/FML/Config/Convert.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Convert.pm,v 1.15 2003/02/01 06:12:17 fukachan Exp $
+# $FML: Convert.pm,v 1.16 2003/04/19 06:13:01 fukachan Exp $
 #
 
 
@@ -16,7 +16,7 @@ use Carp;
 
 =head1 NAME
 
-FML::Config::Convert -- variable expansion for __variable__
+FML::Config::Convert -- tiny non object-style variable expansion tool
 
 =head1 SYNOPSIS
 
@@ -47,7 +47,11 @@ expansion for __variable__ style string.
 
 conversion filter. The source is given by file handle $in,
 output is specified as file handle $out.
-Specify HASH_REF $config as real value.
+Specify HASH_REF $config as source of { key => value }.
+
+=head2 convert_file($src, $dst, $config)
+
+convert() wrapper for files.
 
 =cut
 
@@ -63,7 +67,7 @@ sub convert
    if (defined $in && defined $out && defined $config) {
        my $buf;
        while ($buf = <$in>) {
-	   $buf = _replace($buf, $config) if $buf =~ /__/;
+	   $buf = _replace($buf, $config) if $buf =~ /__/o;
 	   print $out $buf;
        }
    }
-- 
cgit v1.2.1