diff options
author | Swedish Language Team <swedish> | 1999-07-29 12:39:44 +0000 |
---|---|---|
committer | Swedish Language Team <swedish> | 1999-07-29 12:39:44 +0000 |
commit | 361514bfb2ca06b2ac7e9cd57b73652d7090c3c6 (patch) | |
tree | 367d7d08be20a1824c0f46ef6d59a947314d8eda /check_trans.pl | |
parent | 93c8f4b912c4a9db2ec3686225adce1b6a8eafeb (diff) |
Now flushes stdout before calling diff, which fixes the problem of the
diff output being intermixed with the other output.
CVS version numbers
check_trans.pl: 1.1 -> 1.2
Diffstat (limited to 'check_trans.pl')
-rwxr-xr-x | check_trans.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/check_trans.pl b/check_trans.pl index 2ab8946fe19..0670b428162 100755 --- a/check_trans.pl +++ b/check_trans.pl @@ -24,6 +24,7 @@ # use a file to bind a file to a translator? use Getopt::Std; +use IO::Handle; $opt_d = 0; $opt_s = ''; @@ -96,7 +97,9 @@ sub check_file { $oldr ||= '1.1'; $oldname = $name; $oldname =~ s/^$to/$from/; + STDOUT->flush; system("cvs -z3 diff -u -r '$oldr' -r '$revision' '$oldname'"); + STDOUT->flush; } else { print "NeedToUpdate $name to version $revision\n"; } |