[Po4a-commits] "po4a/lib/Locale/Po4a Sgml.pm,1.110,1.111"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv11407/lib/Locale/Po4a

Modified Files:
	Sgml.pm 
Log Message:
Do not reopen the input file.
Otherwise, it fails when the master document is stdin.


Index: Sgml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Sgml.pm,v
retrieving revision 1.110
retrieving revision 1.111
diff -u -d -r1.110 -r1.111
--- Sgml.pm	14 Sep 2006 22:00:37 -0000	1.110
+++ Sgml.pm	18 Sep 2006 20:55:11 -0000	1.111
@@ -349,13 +349,12 @@
     # Rewrite the file to:
     #   - protect optional inclusion marker (ie, "<![ %str [" and "]]>")
     #   - protect entities from expansion (ie "&release;")
-    open (IN,"<$mastername")
-	|| die wrap_mod("po4a::sgml", dgettext("po4a", "Can't open %s: %s"), $mastername, $!);
     my $origfile="";
-    while (<IN>) {
-	$origfile .= $_;
+    my $i=0;
+    while ($i < @{$self->{TT}{doc_in}}) {
+        $origfile .= ${$self->{TT}{doc_in}}[$i];
+        $i+=2;
     }
-    close IN or die wrap_mod("po4a::sgml", dgettext("po4a", "Can't close %s: %s"), $mastername, $!);
     # Detect the XML pre-prolog
     if ($origfile =~ s/^(\s*<\?xml[^?]*\?>)//) {
 	warn wrap_mod("po4a::sgml", dgettext("po4a",