[Po4a-commits] "po4a/lib/Locale/Po4a Wml.pm,1.6,1.7"

[Nicolas FRANCOIS]

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

Modified Files:
	Wml.pm 
Log Message:
Correct a mistake: do replacing instead of matching.
Patch by: Kenshi Muto <kmuto at debian.org>


Index: Wml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Wml.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- Wml.pm	12 Aug 2007 20:38:18 -0000	1.6
+++ Wml.pm	28 Feb 2008 18:51:25 -0000	1.7
@@ -104,7 +104,7 @@
       }
 
       # Mask mp4h cruft         
-      while ($file =~ m|^#(.*)$|<!--PO4ASHARPBEGIN$1PO4ASHARPEND-->|m) {
+      while ($file =~ s|^#(.*)$|<!--PO4ASHARPBEGIN$1PO4ASHARPEND-->|m) {
         my $line = $1;
         print STDERR "PROTECT HEADER: $line\n";
         if ($line =~ m/title="([^"]*)"/) { #) {#"){