diff options
| author | Denis Barbier <barbier> | 2002-08-06 21:34:04 +0000 |
|---|---|---|
| committer | Denis Barbier <barbier> | 2002-08-06 21:34:04 +0000 |
| commit | 4bad16ec754cb1f36682a3ceb506cd1b09a2510a (patch) | |
| tree | 3d8e03c49611c4dc37317f235fccb8e81174ae5d /check_trans.pl | |
| parent | fa5cbfe1ef2d2cdaaff54f0e37a84138c1e9738e (diff) | |
Remove warnings generated by perl 5.6
CVS version numbers
check_trans.pl: 1.53 -> 1.54
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 6fb7b9a2749..915d1617627 100755 --- a/check_trans.pl +++ b/check_trans.pl @@ -452,7 +452,7 @@ sub get_diff_txt { sub check_file { my ($name, $revision, $mtime, $translator) = @_; - $revision ||= 'n/a'; + $revision ||= 'n/a'; my ($oldr, $oldname, $original, $fromname); warn "Checking $name, English revision $revision\n" if $opt_v; my $docname = $name; @@ -465,7 +465,7 @@ sub check_file { if ($opt_t eq 'perl') { print "'$docname' => {\n\t'type' => 'Web',\n"; print "\t'revision' => '$revision',\n"; - print "\t'mtime' => '$mtime',\n"; + print "\t'mtime' => '$mtime',\n" if $mtime; print "\t'status' => 1,\n"; print "},\n"; } else { @@ -550,7 +550,7 @@ sub check_file { if ($opt_t eq 'perl') { print "'$docname' => {\n\t'type' => 'Web',\n"; print "\t'revision' => '$revision',\n"; - print "\t'mtime' => '$mtime',\n"; + print "\t'mtime' => '$mtime',\n" if $mtime; print "\t'base_revision' => '$oldr',\n"; print "\t'translation_maintainer' => ['$translator'],\n" if $translator; print "\t'status' => $status,\n"; |