[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Debian JP master SVN www commits (rev.496)



=======================================================
Repository: /org/svn.debian.or.jp/repos
  Revision: 496
  Commiter: kmuto
      Date: 2007-11-14 15:14:31 +0900 (水, 14 11月 2007)
=======================================================
Log:

replacing instead of matching

=======================================================
Changed:

U   po4a/lib/Locale/Po4a/Wml.pm

Modified: po4a/lib/Locale/Po4a/Wml.pm
===================================================================
--- po4a/lib/Locale/Po4a/Wml.pm	2007-11-14 06:12:04 UTC (rev 495)
+++ po4a/lib/Locale/Po4a/Wml.pm	2007-11-14 06:14:31 UTC (rev 496)
@@ -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="([^"]*)"/) { #) {#"){