diff options
author | Denis Barbier <barbier> | 2001-09-04 18:27:03 +0000 |
---|---|---|
committer | Denis Barbier <barbier> | 2001-09-04 18:27:03 +0000 |
commit | f8b29069ac0ece4eed167608531ec2cdb70465f6 (patch) | |
tree | 428144a4a2ec62d7a9a334ae99611d3c43ce2066 /check_trans.pl | |
parent | 5382a2329c25b18bcdc1ee5394d0336ac05be78b (diff) |
Some variables were not initialized with missing
wml::debian::translation-check line in documents.
CVS version numbers
check_trans.pl: 1.36 -> 1.37
Diffstat (limited to 'check_trans.pl')
-rwxr-xr-x | check_trans.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/check_trans.pl b/check_trans.pl index bf785845a91..48d03de8d1a 100755 --- a/check_trans.pl +++ b/check_trans.pl @@ -422,7 +422,7 @@ sub check_file { return; } my $transcheck = Webwml::TransCheck->new($name); - $oldr = $transcheck->revision(); + $oldr = $transcheck->revision() || 0; $translator = $transcheck->maintainer() || ""; $original = $transcheck->original(); warn "Found translation for $oldr\n" if $opt_v and $oldr; @@ -448,8 +448,8 @@ sub check_file { my $str; my $status = 8; - my ($numrev) = ($revision =~ m/^1\.(\d+)$/); - my ($numoldr) = ($oldr =~ m/^1\.(\d+)$/); + my ($numrev) = ($revision =~ m/^1\.(\d+)$/) || "0"; + my ($numoldr) = ($oldr =~ m/^1\.(\d+)$/) || "0"; if (!$oldr) { $oldr = '1.1'; $str = "Unknown status of $name (revision should be $revision)"; |