From 4bad16ec754cb1f36682a3ceb506cd1b09a2510a Mon Sep 17 00:00:00 2001
From: Denis Barbier <barbier>
Date: Tue, 6 Aug 2002 21:34:04 +0000
Subject: Remove warnings generated by perl 5.6

CVS version numbers

check_trans.pl: 1.53 -> 1.54
---
 check_trans.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'check_trans.pl')

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";
-- 
cgit v1.2.3