Files matching m#$langto/international/$langto#i and without any

wml::debian::translation-check line are assumed to be original, and
English document is checked.

CVS version numbers

check_trans.pl: 1.37 -> 1.38

1 files changed, 8 insertions, 4 deletions

diff --git a/check_trans.pl b/check_trans.pl
index 48d03de8d1a..5a5965a712e 100755
--- a/check_trans.pl
+++ b/check_trans.pl
@@ -422,15 +422,19 @@ sub check_file {
 		return;
 	}
 	my $transcheck = Webwml::TransCheck->new($name);
-	$oldr       = $transcheck->revision() || 0;
+	$oldr = $transcheck->revision() || 0;
+	if (!$oldr && ($name =~ m#$langto/international/$langto#i)) {
+		#   This document is original, check for
+		#   english/international/$langto...
+		$name =~ s{^$to}{$from};
+		$transcheck = Webwml::TransCheck->new($name);
+		$oldr       = $transcheck->revision() || 0;
+	}
 	$translator = $transcheck->maintainer() || "";
 	$original   = $transcheck->original();
 	warn "Found translation for $oldr\n" if $opt_v and $oldr;
 	warn "Translated by $translator\n"   if $opt_v and $translator;
 	warn "Original is $original\n"       if $opt_v and $original;
-	#  The following test was in check_trans.pl and has been
-	#  removed, I do not understand what it was intended for
-	#  if ((!$oldr) && ($name =~ /$langto\/international\/$langto/i))
 	if ($original) {
 		my ($fromname, $fromdir);
 		$fromname = $name;