[Po4a-commits] r2695 - in /trunk: lib/Locale/Po4a/Po.pm lib/Locale/Po4a/Sgml.pm lib/Locale/Po4a/Wml.pm po4a po4a-updatepo

[barbier at users.alioth.debian.org]

Author: barbier
Date: Wed Oct 31 21:21:20 2012
New Revision: 2695

URL: http://svn.debian.org/wsvn/po4a/?sc=1&rev=2695
Log:
Use $ENV{TMPDIR} instead of /tmp if it is defined

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

Modified: trunk/lib/Locale/Po4a/Po.pm
URL: http://svn.debian.org/wsvn/po4a/trunk/lib/Locale/Po4a/Po.pm?rev=2695&op=diff
==============================================================================
--- trunk/lib/Locale/Po4a/Po.pm (original)
+++ trunk/lib/Locale/Po4a/Po.pm Wed Oct 31 21:21:20 2012
@@ -573,7 +573,7 @@
     if (-e $filename) {
         my ($tmp_filename);
         (undef,$tmp_filename)=File::Temp->tempfile($filename."XXXX",
-                                                   DIR    => "/tmp",
+                                                   DIR    => $ENV{TMPDIR} || "/tmp",
                                                    OPEN   => 0,
                                                    UNLINK => 0);
         $self->write($tmp_filename);

Modified: trunk/lib/Locale/Po4a/Sgml.pm
URL: http://svn.debian.org/wsvn/po4a/trunk/lib/Locale/Po4a/Sgml.pm?rev=2695&op=diff
==============================================================================
--- trunk/lib/Locale/Po4a/Sgml.pm (original)
+++ trunk/lib/Locale/Po4a/Sgml.pm Wed Oct 31 21:21:20 2012
@@ -375,7 +375,7 @@
         # Detect if we can find the DTD
         my ($tmpfh,$tmpfile)=File::Temp::tempfile("po4a-XXXX",
                                                   SUFFIX => ".sgml",
-                                                  DIR    => "/tmp",
+                                                  DIR    => $ENV{TMPDIR} || "/tmp",
                                                   UNLINK => 0);
         print $tmpfh $origfile;
         close $tmpfh
@@ -800,7 +800,7 @@
 
     my ($tmpfh,$tmpfile)=File::Temp::tempfile("po4a-XXXX",
                                               SUFFIX => ".sgml",
-                                              DIR    => "/tmp",
+                                              DIR    => $ENV{TMPDIR} || "/tmp",
                                               UNLINK => 0);
     print $tmpfh $origfile;
     close $tmpfh or die wrap_mod("po4a::sgml", dgettext("po4a", "Can't close tempfile: %s"), $!);

Modified: trunk/lib/Locale/Po4a/Wml.pm
URL: http://svn.debian.org/wsvn/po4a/trunk/lib/Locale/Po4a/Wml.pm?rev=2695&op=diff
==============================================================================
--- trunk/lib/Locale/Po4a/Wml.pm (original)
+++ trunk/lib/Locale/Po4a/Wml.pm Wed Oct 31 21:21:20 2012
@@ -82,7 +82,7 @@
     my ($self,$filename)=@_;
     my $tmp_filename;
     (undef,$tmp_filename)=File::Temp->tempfile("po4aXXXX",
-                                                DIR    => "/tmp",
+                                                DIR    => $ENV{TMPDIR} || "/tmp",
                                                 SUFFIX => ".xml",
                                                 OPEN   => 0,
                                                 UNLINK => 0)

Modified: trunk/po4a
URL: http://svn.debian.org/wsvn/po4a/trunk/po4a?rev=2695&op=diff
==============================================================================
--- trunk/po4a (original)
+++ trunk/po4a Wed Oct 31 21:21:20 2012
@@ -1224,7 +1224,7 @@
         if (defined $po4a_opts{"srcdir"});
     if ($po4a_opts{"split"}) {
         (undef,$pot_filename)=File::Temp->tempfile("po4aXXXX",
-                                                   DIR    => "/tmp",
+                                                   DIR    => $ENV{TMPDIR} || "/tmp",
                                                    SUFFIX => ".pot",
                                                    OPEN   => 0,
                                                    UNLINK => 0)
@@ -1254,7 +1254,7 @@
         # updated (unless --force was specified).
         unless ($po4a_opts{"force"}) {
             (undef,$tmp_file)=File::Temp->tempfile("po4aXXXX",
-                                                   DIR    => "/tmp",
+                                                   DIR    => $ENV{TMPDIR} || "/tmp",
                                                    SUFFIX => ".pot",
                                                    OPEN   => 0,
                                                    UNLINK => 0)
@@ -1285,7 +1285,7 @@
     foreach my $lang (sort keys %po_filename) {
         my $tmp_bigpo;
         (undef,$tmp_bigpo)=File::Temp->tempfile("po4aXXXX",
-                                                DIR    => "/tmp",
+                                                DIR    => $ENV{TMPDIR} || "/tmp",
                                                 SUFFIX => "-$lang.po",
                                                 OPEN   => 0,
                                                 UNLINK => 0)
@@ -1351,7 +1351,7 @@
             # 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",
-                                                   DIR    => "/tmp",
+                                                   DIR    => $ENV{TMPDIR} || "/tmp",
                                                    SUFFIX => ".po",
                                                    OPEN   => 0,
                                                    UNLINK => 0)

Modified: trunk/po4a-updatepo
URL: http://svn.debian.org/wsvn/po4a/trunk/po4a-updatepo?rev=2695&op=diff
==============================================================================
--- trunk/po4a-updatepo (original)
+++ trunk/po4a-updatepo Wed Oct 31 21:21:20 2012
@@ -250,7 +250,7 @@
 
 my ($pot_filename);
 (undef,$pot_filename)=File::Temp->tempfile("po4a-updatepoXXXX",
-                                           DIR    => "/tmp",
+                                           DIR    => $ENV{TMPDIR} || "/tmp",
                                            SUFFIX => ".pot",
                                            OPEN   => 0,
                                            UNLINK => 0)