Bug 380859, fix perl warning, r=rhelmer

This commit is contained in:
nrthomas@gmail.com 2007-05-16 13:59:43 -07:00
parent 7de4026e46
commit 27f0d0d5a3

View File

@ -33,9 +33,10 @@ sub print_usage
print " -h show this help text\n";
}
getopts("h");
my %opts;
getopts("h", \%opts);
if (defined($::opt_h) || scalar(@ARGV) != 1) {
if (defined($opts{'h'}) || scalar(@ARGV) != 1) {
print_usage();
exit 1;
}