|
From: Christian G. [M. Mitch] <mas...@us...> - 2002-11-23 22:09:46
|
Update of /cvsroot/jprojecttimer/jprojecttimer
In directory sc8-pr-cvs1:/tmp/cvs-serv14110
Modified Files:
checkTranslation.pl
Log Message:
Only print error categories when there are errors.
Index: checkTranslation.pl
===================================================================
RCS file: /cvsroot/jprojecttimer/jprojecttimer/checkTranslation.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** checkTranslation.pl 11 Nov 2002 20:32:50 -0000 1.6
--- checkTranslation.pl 23 Nov 2002 22:09:43 -0000 1.7
***************
*** 36,55 ****
close IN or die "can't close $source: $!";
! print " multiple keys:\n";
! foreach my $key (grep $file{$_} > 1, sort keys %file) {
! print "* $key\n";
! $err++;
}
! print " additional keys:\n";
! foreach my $key (grep ! $keywords{$_}, sort keys %file) {
! print "* $key\n";
! $err++;
}
! print " missing keys:\n";
! foreach my $key (grep ! $file{$_}, sort keys %keywords) {
! print "* $key\n";
! $err++;
}
--- 36,64 ----
close IN or die "can't close $source: $!";
! my @multiple = grep $file{$_} > 1, sort keys %file;
! if (@multiple) {
! print " multiple keys:\n";
! foreach my $key (@multiple) {
! print "* $key\n";
! $err++;
! }
}
! my @additional = grep ! $keywords{$_}, sort keys %file;
! if (@additional) {
! print " additional keys:\n";
! foreach my $key (@additional) {
! print "* $key\n";
! $err++;
! }
}
! my @missing = grep ! $file{$_}, sort keys %keywords;
! if (@missing) {
! print " missing keys:\n";
! foreach my $key (@missing) {
! print "* $key\n";
! $err++;
! }
}
|