[Po4a-commits] "po4a/lib/Locale/Po4a Wml.pm,1.14,1.15"

[Nicolas FRANCOIS]

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

Modified Files:
	Wml.pm 
Log Message:
	* lib/Locale/Po4a/Wml.pm: Issue warnings only in debug mode.


Index: Wml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Wml.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- Wml.pm	30 Mar 2008 21:56:48 -0000	1.14
+++ Wml.pm	2 Mar 2009 19:58:07 -0000	1.15
@@ -114,7 +114,8 @@
       # Mask mp4h cruft         
       while ($file =~ s|^#(.*)$|<!--PO4ASHARPBEGIN$1PO4ASHARPEND-->|m) {
         my $line = $1;
-        print STDERR "PROTECT HEADER: $line\n";
+        print STDERR "PROTECT HEADER: $line\n"
+          if $self->debug();
         if ($line =~ m/title="([^"]*)"/) { #) {#"){
           warn "FIXME: We should translate the page title: $1\n";
         }