[Po4a-commits] "po4a/lib/Locale/Po4a Wml.pm,1.9,1.10"

[Noritada Kobayashi]

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

Modified Files:
	Wml.pm 
Log Message:
Enable outputting correct reference information to the po files.
Since the Wml module uses the XML module for parsing, it output
reference locations in the temporary files previously.


Index: Wml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Wml.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- Wml.pm	28 Feb 2008 18:58:01 -0000	1.9
+++ Wml.pm	29 Feb 2008 17:51:10 -0000	1.10
@@ -135,6 +135,10 @@
                         
       # Get the output po file back
       $self->{TT}{po_out}=$xmlizer->{TT}{po_out};
+      foreach my $msgid (keys %{$self->{TT}{po_out}{po}}) {
+        $self->{TT}{po_out}{po}{$msgid}{'reference'} =~
+           s|$tmp_filename(:\d+)|$filename$1|o;
+      }
       
       # Get the document back (undoing our wml masking)
       $file = join("",@{$xmlizer->{TT}{doc_out}});