[Po4a-commits] "po4a/lib/Locale/Po4a Po.pm,1.97,1.98"

[Denis Barbier]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv7360/lib/Locale/Po4a

Modified Files:
	Po.pm 
Log Message:
Fix filter method, it did not work if argument contains a slash


Index: Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -d -r1.97 -r1.98
--- Po.pm	30 Dec 2009 21:12:31 -0000	1.97
+++ Po.pm	17 Apr 2010 08:42:38 -0000	1.98
@@ -392,7 +392,7 @@
     print $fh "msgstr ".quote_text($self->{header})."\n\n";
 
 
-    my $buf_msgstr_plural; # USed to keep the first msgstr of plural forms
+    my $buf_msgstr_plural; # Used to keep the first msgstr of plural forms
     my $first=1;
     foreach my $msgid ( sort { ($self->{po}{"$a"}{'pos'}) <=>
                                ($self->{po}{"$b"}{'pos'})
@@ -849,7 +849,7 @@
                 $pos++;
             }
             # and now, add the code to check this equality
-            $code .= "(\$_[$fieldpos] =~ m/$arg/)";
+            $code .= "(\$_[$fieldpos] =~ m{$arg})";
 
         }
         showmethecode("End of expression")