ICU-5423 The output now gives the total number of time zones on the system.

X-SVN-Rev: 21703
This commit is contained in:
Michael Ow 2007-06-11 22:04:24 +00:00
parent 3a924f6fb7
commit 7a90c71ea2

View file

@ -20,10 +20,10 @@ open(MYFILE, ">$FILE");
if (scalar(@ARGV) == 3) {
($year, $month, $day) = @ARGV;
print "We are using $month-$day-$year\n";
print "The date we are using is: $month-$day-$year.\n";
print MYFILE "We are using $month-$day-$year\n";
} else {
print "We are using the current time\n";
print "We are using the current date.\n";
print MYFILE "We are using the current time\n";
$USECURRENT = 1;
}
@ -59,8 +59,8 @@ foreach my $tzone (@TZONE) {
}
}
print MYFILE "\nThe number of time zones with wrong results: $count\n";
print "\nThe number of time zones with wrong results: $count\n";
print MYFILE "\nThe number of time zones with wrong results: $count out of $index\n";
print "\nThe number of time zones with wrong results: $count out of $index\n";
close(MYFILE);