skipped printing some extra stuff (hope this doesn't break things)

CVS version numbers

check_trans.pl: 1.22 -> 1.23

1 files changed, 11 insertions, 4 deletions

diff --git a/check_trans.pl b/check_trans.pl
index 6b558dc2e2e..585ae1c4667 100755
--- a/check_trans.pl
+++ b/check_trans.pl
@@ -125,7 +125,7 @@ unless (getopts('vgdqQm:s:p:ln:M'))
 	exit;
 }
 
-warn "Checking subtree $opt_s only\n" if $opt_v;
+warn "Checking subtree $opt_s only\n" if (($opt_v) && ($opt_s));
 
 # include only files matching $filename
 my $filename = $opt_p || '(\.wml$)|(\.html$)';
@@ -449,15 +449,22 @@ sub check_file {
 	my $str;
 	if (!$oldr) {
 	  $oldr = '1.1';
-	  $str = "Unknown status of $name (revision should be $revision)"
+	  if ($name !~ /$langto\/international\/$langto/i) {
+	    $str = "Unknown status of $name (revision should be $revision)";
+	  } else {
+	    warn "Ignoring $name\n" if $opt_v;
+	  }
 	} elsif ($oldr >> $revision) {
 	  $str = "Broken revision number $oldr for $name, it should be $revision";
 	} else {
 	  $str = "NeedToUpdate $name from version $oldr to version $revision";
 	}
 	$str .= " (maintainer: $translator)" if $translator;
-	$str .= "\n";
-	print $str unless $opt_Q;
+	if ($str) {
+	  $str .= "\n";
+	  print $str unless ($opt_Q);
+	}
+
 	$oldname = $name;
 	$oldname =~ s/^$to/$from/;