anne/lyx_mirror
1
0
Fork 0
mirror of https://git.lyx.org/repos/lyx.git synced 2024-12-22 13:18:28 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Use true temporary files

Browse Source 
git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@39235 a592a061-630c-0410-9148-cb99ea01b6c8
This commit is contained in:
Kornel Benko 2011-07-02 20:43:10 +00:00
parent 36c1f7e3ab
commit e8910e73f0
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
po/diff_po.pl
View File

@ -33,6 +33,7 @@
use strict;
use Term::ANSIColor qw(:constants);
use File::Temp;
my ($status, $foundline, $msgid, $msgstr, $fuzzy);
@ -43,7 +44,6 @@ my %Fuzzy = (); # inside new po-file
my $result = 0; # exit value
my $printlines = 0;
my @names = ();
my $tmpfile = "/tmp/blax";
# Check first, if called as standalone program for git
if ($ARGV[0] =~ /^-r(.*)/) {
@ -65,16 +65,16 @@ if ($ARGV[0] =~ /^-r(.*)/) {
}
if (-d "$filedir/../.git") {
my @args = ();
my $tmpfile = File::Temp->new();
push(@args, "-L", $argf . " (" . $rev . ")");
push(@args, "-L", $argf . " (local copy)");
open(FI, "git show $rev:po/$baseargf|");
open(FO, '>', $tmpfile);
$tmpfile->unlink_on_destroy( 1 );
while(my $l = <FI>) {
print FO $l;
print $tmpfile $l;
}
close(FI);
close(FO);
push(@args, $tmpfile, $argf);
push(@args, $tmpfile->filename, $argf);
print "===================================================================\n";
&diff_po(@args);
}