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

[Nicolas FRANCOIS]

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

Modified Files:
	Wml.pm 
Log Message:
Enable handling define-tag tags.
Patch by: Noritada Kobayashi <nori1 at dolphin.c.u-tokyo.ac.jp>


Index: Wml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Wml.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Wml.pm	28 Feb 2008 18:51:25 -0000	1.7
+++ Wml.pm	28 Feb 2008 18:52:38 -0000	1.8
@@ -111,6 +111,9 @@
           warn "FIXME: We should translate the page title: $1\n";
         }          
       }
+
+      # Validate define-tag tag's argument
+      $file =~ s|(<define-tag\s+)([^\s>]+)|$1PO4ADUMMYATTR="$2"|g;
                 
       # Flush the result to disk          
       open OUTFILE,">$tmp_filename";
@@ -136,6 +139,7 @@
       $file = join("",@{$xmlizer->{TT}{doc_out}});
       $file =~ s/^<!--PO4ASHARPBEGIN(.*?)PO4ASHARPEND-->/#$1/mg;
       $file =~ s/<!--PO4ABEGINPERL(.*?)PO4AENDPERL-->/<:$1:>/msg;
+      $file =~ s|(<define-tag\s+)PO4ADUMMYATTR="([^"]*)"|$1$2|g;
       $file =~ s/PO4ALT/</msg;
       $file =~ s/PO4AGT/>/msg;