diff options
author | Polish Language Team <polish> | 2000-11-23 03:19:44 +0000 |
---|---|---|
committer | Polish Language Team <polish> | 2000-11-23 03:19:44 +0000 |
commit | 54d9c06af157d8e0b288dc3c45220adfb89ec53a (patch) | |
tree | 8c3108b472b908ce9286427a84bd0bc71ffdcdf9 /touch_translations.pl | |
parent | a479cfe5bbdf8c7af3b76c478d9eb155ad4df606 (diff) |
cut down on verbosity
CVS version numbers
touch_translations.pl: 1.2 -> 1.3
Diffstat (limited to 'touch_translations.pl')
-rwxr-xr-x | touch_translations.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/touch_translations.pl b/touch_translations.pl index 71750b07944..d023ffd07b6 100755 --- a/touch_translations.pl +++ b/touch_translations.pl @@ -49,12 +49,12 @@ @langs = values(%langs); # Set this to 1 for debugging -$debug = 1; +$debug = 0; sub rebuild { my $file = shift; $now = time; - print "touching $file\n"; + print "touching $file\n" if $debug; utime $now, $now, $file or die "$file: $!"; } @@ -115,7 +115,7 @@ foreach $lang (@langs) { my $transfile = $argfile; my ($maxdelta, $mindelta) = (5, 2); my ($original, $langrev); - print "Now checking $lang\n"; + print "Now checking $lang\n" if $debug; $transfile =~ s+$arglang+$lang+ or die "wrong argument: pattern does not match file: $transfile"; # Parse the translated file |