|
 |
223bcc |
diff -ur po4a-0.44.old/lib/Locale/Po4a/Po.pm po4a-0.44/lib/Locale/Po4a/Po.pm
|
|
|
223bcc |
--- po4a-0.44.old/lib/Locale/Po4a/Po.pm 2012-10-21 00:03:24.000000000 +0100
|
|
|
223bcc |
+++ po4a-0.44/lib/Locale/Po4a/Po.pm 2013-04-17 11:26:54.749652129 +0100
|
|
|
223bcc |
@@ -572,7 +572,8 @@
|
|
|
223bcc |
|
|
|
223bcc |
if (-e $filename) {
|
|
|
223bcc |
my ($tmp_filename);
|
|
|
223bcc |
- (undef,$tmp_filename)=File::Temp->tempfile($filename."XXXX",
|
|
|
223bcc |
+ my $basename = basename($filename);
|
|
|
223bcc |
+ (undef,$tmp_filename)=File::Temp::tempfile($basename."XXXX",
|
|
|
223bcc |
DIR => "/tmp",
|
|
|
223bcc |
OPEN => 0,
|
|
|
223bcc |
UNLINK => 0);
|
|
|
223bcc |
diff -ur po4a-0.44.old/lib/Locale/Po4a/Wml.pm po4a-0.44/lib/Locale/Po4a/Wml.pm
|
|
|
223bcc |
--- po4a-0.44.old/lib/Locale/Po4a/Wml.pm 2012-10-21 00:03:24.000000000 +0100
|
|
|
223bcc |
+++ po4a-0.44/lib/Locale/Po4a/Wml.pm 2013-04-17 11:27:43.904492845 +0100
|
|
|
223bcc |
@@ -81,7 +81,7 @@
|
|
|
223bcc |
sub read {
|
|
|
223bcc |
my ($self,$filename)=@_;
|
|
|
223bcc |
my $tmp_filename;
|
|
|
223bcc |
- (undef,$tmp_filename)=File::Temp->tempfile("po4aXXXX",
|
|
|
223bcc |
+ (undef,$tmp_filename)=File::Temp::tempfile("po4aXXXX",
|
|
|
223bcc |
DIR => "/tmp",
|
|
|
223bcc |
SUFFIX => ".xml",
|
|
|
223bcc |
OPEN => 0,
|
|
|
223bcc |
diff -ur po4a-0.44.old/po4a po4a-0.44/po4a
|
|
|
223bcc |
--- po4a-0.44.old/po4a 2012-10-21 00:03:24.000000000 +0100
|
|
|
223bcc |
+++ po4a-0.44/po4a 2013-04-17 11:26:05.938810267 +0100
|
|
|
223bcc |
@@ -1209,7 +1209,7 @@
|
|
|
223bcc |
chdir $po4a_opts{"srcdir"}
|
|
|
223bcc |
if (defined $po4a_opts{"srcdir"});
|
|
|
223bcc |
if ($po4a_opts{"split"}) {
|
|
|
223bcc |
- (undef,$pot_filename)=File::Temp->tempfile("po4aXXXX",
|
|
|
223bcc |
+ (undef,$pot_filename)=File::Temp::tempfile("po4aXXXX",
|
|
|
223bcc |
DIR => "/tmp",
|
|
|
223bcc |
SUFFIX => ".pot",
|
|
|
223bcc |
OPEN => 0,
|
|
|
223bcc |
@@ -1239,7 +1239,7 @@
|
|
|
223bcc |
# Create a temporary POT, and check if the old one needs to be
|
|
|
223bcc |
# updated (unless --force was specified).
|
|
|
223bcc |
unless ($po4a_opts{"force"}) {
|
|
|
223bcc |
- (undef,$tmp_file)=File::Temp->tempfile("po4aXXXX",
|
|
|
223bcc |
+ (undef,$tmp_file)=File::Temp::tempfile("po4aXXXX",
|
|
|
223bcc |
DIR => "/tmp",
|
|
|
223bcc |
SUFFIX => ".pot",
|
|
|
223bcc |
OPEN => 0,
|
|
|
223bcc |
@@ -1270,7 +1270,7 @@
|
|
|
223bcc |
# Generate a complete .po
|
|
|
223bcc |
foreach my $lang (sort keys %po_filename) {
|
|
|
223bcc |
my $tmp_bigpo;
|
|
|
223bcc |
- (undef,$tmp_bigpo)=File::Temp->tempfile("po4aXXXX",
|
|
|
223bcc |
+ (undef,$tmp_bigpo)=File::Temp::tempfile("po4aXXXX",
|
|
|
223bcc |
DIR => "/tmp",
|
|
|
223bcc |
SUFFIX => "-$lang.po",
|
|
|
223bcc |
OPEN => 0,
|
|
|
223bcc |
@@ -1336,7 +1336,7 @@
|
|
|
223bcc |
my $tmp_file;
|
|
|
223bcc |
# Create a temporary PO, and check if the old one needs to be
|
|
|
223bcc |
# updated (unless --force was specified).
|
|
|
223bcc |
- (undef,$tmp_file)=File::Temp->tempfile("po4aXXXX",
|
|
|
223bcc |
+ (undef,$tmp_file)=File::Temp::tempfile("po4aXXXX",
|
|
|
223bcc |
DIR => "/tmp",
|
|
|
223bcc |
SUFFIX => ".po",
|
|
|
223bcc |
OPEN => 0,
|
|
|
223bcc |
diff -ur po4a-0.44.old/po4a-updatepo po4a-0.44/po4a-updatepo
|
|
|
223bcc |
--- po4a-0.44.old/po4a-updatepo 2012-10-21 00:03:24.000000000 +0100
|
|
|
223bcc |
+++ po4a-0.44/po4a-updatepo 2013-04-17 11:26:05.938810267 +0100
|
|
|
223bcc |
@@ -248,7 +248,7 @@
|
|
|
223bcc |
if $_ eq '-' && !-e '-'} @pofiles;
|
|
|
223bcc |
|
|
|
223bcc |
my ($pot_filename);
|
|
|
223bcc |
-(undef,$pot_filename)=File::Temp->tempfile("po4a-updatepoXXXX",
|
|
|
223bcc |
+(undef,$pot_filename)=File::Temp::tempfile("po4a-updatepoXXXX",
|
|
|
223bcc |
DIR => "/tmp",
|
|
|
223bcc |
SUFFIX => ".pot",
|
|
|
223bcc |
OPEN => 0,
|
|
|
223bcc |
diff -ur po4a-0.44.old/scripts/msguntypot po4a-0.44/scripts/msguntypot
|
|
|
223bcc |
--- po4a-0.44.old/scripts/msguntypot 2012-10-21 00:03:24.000000000 +0100
|
|
|
223bcc |
+++ po4a-0.44/scripts/msguntypot 2013-04-17 11:26:05.939810264 +0100
|
|
|
223bcc |
@@ -195,7 +195,7 @@
|
|
|
223bcc |
|
|
|
223bcc |
# Get all po files and report differences in them
|
|
|
223bcc |
my ($pofile);
|
|
|
223bcc |
-(undef,$pofile)=File::Temp->tempfile("po4aXXXX",
|
|
|
223bcc |
+(undef,$pofile)=File::Temp::tempfile("po4aXXXX",
|
|
|
223bcc |
DIR => "/tmp",
|
|
|
223bcc |
SUFFIX => ".po",
|
|
|
223bcc |
OPEN => 0,
|