[Po4a-commits] "po4a/lib/Locale/Po4a Sgml.pm,1.101,1.102"

[Nicolas FRANCOIS]

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

Modified Files:
	Sgml.pm 
Log Message:
The filename was not respected.
Also I prefer having "sgml" in the suffix instead of the name.


Index: Sgml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Sgml.pm,v
retrieving revision 1.101
retrieving revision 1.102
diff -u -d -r1.101 -r1.102
--- Sgml.pm	28 Nov 2005 21:43:39 -0000	1.101
+++ Sgml.pm	28 Nov 2005 22:21:22 -0000	1.102
@@ -735,7 +735,8 @@
 	}
     }
 
-    my ($tmpfh,$tmpfile)=File::Temp->tempfile("po4asgml-XXXX",
+    my ($tmpfh,$tmpfile)=File::Temp::tempfile("po4a-XXXX",
+                                              SUFFIX => ".sgml",
                                               DIR    => "/tmp",
                                               UNLINK => 0);
     print $tmpfh $origfile;