[Po4a-commits] r2721 - in /trunk: lib/Locale/Po4a/Po.pm lib/Locale/Po4a/Wml.pm po4a po4a-updatepo scripts/msguntypot

[barbier at users.alioth.debian.org]

Author: barbier
Date: Thu May 16 21:17:50 2013
New Revision: 2721

URL: http://svn.debian.org/wsvn/po4a/?sc=1&rev=2721
Log:
Fix usage of File::Temp::tempfile

Patch provided by Richard W.M. Jones, thanks!

Modified:
    trunk/lib/Locale/Po4a/Po.pm
    trunk/lib/Locale/Po4a/Wml.pm
    trunk/po4a
    trunk/po4a-updatepo
    trunk/scripts/msguntypot

Modified: trunk/lib/Locale/Po4a/Po.pm
URL: http://svn.debian.org/wsvn/po4a/trunk/lib/Locale/Po4a/Po.pm?rev=2721&op=diff
==============================================================================
--- trunk/lib/Locale/Po4a/Po.pm (original)
+++ trunk/lib/Locale/Po4a/Po.pm Thu May 16 21:17:50 2013
@@ -571,7 +571,8 @@
 
     if (-e $filename) {
         my ($tmp_filename);
-        (undef,$tmp_filename)=File::Temp->tempfile($filename."XXXX",
+        my $basename = basename($filename);
+        (undef,$tmp_filename)=File::Temp::tempfile($basename."XXXX",
                                                    DIR    => $ENV{TMPDIR} || "/tmp",
                                                    OPEN   => 0,
                                                    UNLINK => 0);

Modified: trunk/lib/Locale/Po4a/Wml.pm
URL: http://svn.debian.org/wsvn/po4a/trunk/lib/Locale/Po4a/Wml.pm?rev=2721&op=diff
==============================================================================
--- trunk/lib/Locale/Po4a/Wml.pm (original)
+++ trunk/lib/Locale/Po4a/Wml.pm Thu May 16 21:17:50 2013
@@ -81,7 +81,7 @@
 sub read {
     my ($self,$filename)=@_;
     my $tmp_filename;
-    (undef,$tmp_filename)=File::Temp->tempfile("po4aXXXX",
+    (undef,$tmp_filename)=File::Temp::tempfile("po4aXXXX",
                                                 DIR    => $ENV{TMPDIR} || "/tmp",
                                                 SUFFIX => ".xml",
                                                 OPEN   => 0,

Modified: trunk/po4a
URL: http://svn.debian.org/wsvn/po4a/trunk/po4a?rev=2721&op=diff
==============================================================================
--- trunk/po4a (original)
+++ trunk/po4a Thu May 16 21:17:50 2013
@@ -1224,7 +1224,7 @@
     chdir $po4a_opts{"srcdir"}
         if (defined $po4a_opts{"srcdir"});
     if ($po4a_opts{"split"}) {
-        (undef,$pot_filename)=File::Temp->tempfile("po4aXXXX",
+        (undef,$pot_filename)=File::Temp::tempfile("po4aXXXX",
                                                    DIR    => $ENV{TMPDIR} || "/tmp",
                                                    SUFFIX => ".pot",
                                                    OPEN   => 0,
@@ -1254,7 +1254,7 @@
         # Create a temporary POT, and check if the old one needs to be
         # updated (unless --force was specified).
         unless ($po4a_opts{"force"}) {
-            (undef,$tmp_file)=File::Temp->tempfile("po4aXXXX",
+            (undef,$tmp_file)=File::Temp::tempfile("po4aXXXX",
                                                    DIR    => $ENV{TMPDIR} || "/tmp",
                                                    SUFFIX => ".pot",
                                                    OPEN   => 0,
@@ -1285,7 +1285,7 @@
     # Generate a complete .po
     foreach my $lang (sort keys %po_filename) {
         my $tmp_bigpo;
-        (undef,$tmp_bigpo)=File::Temp->tempfile("po4aXXXX",
+        (undef,$tmp_bigpo)=File::Temp::tempfile("po4aXXXX",
                                                 DIR    => $ENV{TMPDIR} || "/tmp",
                                                 SUFFIX => "-$lang.po",
                                                 OPEN   => 0,
@@ -1352,7 +1352,7 @@
             my $tmp_file;
             # Create a temporary PO, and check if the old one needs to be
             # updated (unless --force was specified).
-            (undef,$tmp_file)=File::Temp->tempfile("po4aXXXX",
+            (undef,$tmp_file)=File::Temp::tempfile("po4aXXXX",
                                                    DIR    => $ENV{TMPDIR} || "/tmp",
                                                    SUFFIX => ".po",
                                                    OPEN   => 0,

Modified: trunk/po4a-updatepo
URL: http://svn.debian.org/wsvn/po4a/trunk/po4a-updatepo?rev=2721&op=diff
==============================================================================
--- trunk/po4a-updatepo (original)
+++ trunk/po4a-updatepo Thu May 16 21:17:50 2013
@@ -251,7 +251,7 @@
         if $_ eq '-'  && !-e '-'} @pofiles;
 
 my ($pot_filename);
-(undef,$pot_filename)=File::Temp->tempfile("po4a-updatepoXXXX",
+(undef,$pot_filename)=File::Temp::tempfile("po4a-updatepoXXXX",
                                            DIR    => $ENV{TMPDIR} || "/tmp",
                                            SUFFIX => ".pot",
                                            OPEN   => 0,

Modified: trunk/scripts/msguntypot
URL: http://svn.debian.org/wsvn/po4a/trunk/scripts/msguntypot?rev=2721&op=diff
==============================================================================
--- trunk/scripts/msguntypot (original)
+++ trunk/scripts/msguntypot Thu May 16 21:17:50 2013
@@ -195,7 +195,7 @@
 
 # Get all po files and report differences in them
 my ($pofile);
-(undef,$pofile)=File::Temp->tempfile("po4aXXXX",
+(undef,$pofile)=File::Temp::tempfile("po4aXXXX",
     DIR    => "/tmp",
     SUFFIX => ".po",
     OPEN   => 0,