aboutsummaryrefslogtreecommitdiffstats
path: root/check_trans.pl
diff options
context:
space:
mode:
authorDenis Barbier <barbier>2001-09-04 18:27:03 +0000
committerDenis Barbier <barbier>2001-09-04 18:27:03 +0000
commitf8b29069ac0ece4eed167608531ec2cdb70465f6 (patch)
tree428144a4a2ec62d7a9a334ae99611d3c43ce2066 /check_trans.pl
parent5382a2329c25b18bcdc1ee5394d0336ac05be78b (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-xcheck_trans.pl6
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)";

© 2014-2024 Faster IT GmbH | imprint | privacy policy