You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
89 lines
4.2 KiB
89 lines
4.2 KiB
5 years ago
|
diff -ur po4a-0.44.old/lib/Locale/Po4a/Po.pm po4a-0.44/lib/Locale/Po4a/Po.pm
|
||
|
|
--- po4a-0.44.old/lib/Locale/Po4a/Po.pm 2012-10-21 00:03:24.000000000 +0100
|
||
|
|
+++ po4a-0.44/lib/Locale/Po4a/Po.pm 2013-04-17 11:26:54.749652129 +0100
|
||
|
|
@@ -572,7 +572,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 => "/tmp",
|
||
|
|
OPEN => 0,
|
||
|
|
UNLINK => 0);
|
||
|
|
diff -ur po4a-0.44.old/lib/Locale/Po4a/Wml.pm po4a-0.44/lib/Locale/Po4a/Wml.pm
|
||
|
|
--- po4a-0.44.old/lib/Locale/Po4a/Wml.pm 2012-10-21 00:03:24.000000000 +0100
|
||
|
|
+++ po4a-0.44/lib/Locale/Po4a/Wml.pm 2013-04-17 11:27:43.904492845 +0100
|
||
|
|
@@ -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 => "/tmp",
|
||
|
|
SUFFIX => ".xml",
|
||
|
|
OPEN => 0,
|
||
|
|
diff -ur po4a-0.44.old/po4a po4a-0.44/po4a
|
||
|
|
--- po4a-0.44.old/po4a 2012-10-21 00:03:24.000000000 +0100
|
||
|
|
+++ po4a-0.44/po4a 2013-04-17 11:26:05.938810267 +0100
|
||
|
|
@@ -1209,7 +1209,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 => "/tmp",
|
||
|
|
SUFFIX => ".pot",
|
||
|
|
OPEN => 0,
|
||
|
|
@@ -1239,7 +1239,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 => "/tmp",
|
||
|
|
SUFFIX => ".pot",
|
||
|
|
OPEN => 0,
|
||
|
|
@@ -1270,7 +1270,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 => "/tmp",
|
||
|
|
SUFFIX => "-$lang.po",
|
||
|
|
OPEN => 0,
|
||
|
|
@@ -1336,7 +1336,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 => "/tmp",
|
||
|
|
SUFFIX => ".po",
|
||
|
|
OPEN => 0,
|
||
|
|
diff -ur po4a-0.44.old/po4a-updatepo po4a-0.44/po4a-updatepo
|
||
|
|
--- po4a-0.44.old/po4a-updatepo 2012-10-21 00:03:24.000000000 +0100
|
||
|
|
+++ po4a-0.44/po4a-updatepo 2013-04-17 11:26:05.938810267 +0100
|
||
|
|
@@ -248,7 +248,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 => "/tmp",
|
||
|
|
SUFFIX => ".pot",
|
||
|
|
OPEN => 0,
|
||
|
|
diff -ur po4a-0.44.old/scripts/msguntypot po4a-0.44/scripts/msguntypot
|
||
|
|
--- po4a-0.44.old/scripts/msguntypot 2012-10-21 00:03:24.000000000 +0100
|
||
|
|
+++ po4a-0.44/scripts/msguntypot 2013-04-17 11:26:05.939810264 +0100
|
||
|
|
@@ -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,
|