diff --git a/src/mkhelp.pl b/src/mkhelp.pl index 782c466524..d1a040c0cc 100755 --- a/src/mkhelp.pl +++ b/src/mkhelp.pl @@ -23,11 +23,17 @@ # ########################################################################### -if($ARGV[0] eq "-c") { - $c=1; +use strict; +use warnings; + +my $c = 0; +if(@ARGV && $ARGV[0] eq "-c") { + $c = 1; shift @ARGV; } +my @out; + push @out, " _ _ ____ _\n"; push @out, " ___| | | | _ \\| |\n"; push @out, " / __| | | | |_) | |\n"; @@ -67,8 +73,8 @@ if($c) my $gzippedContent; IO::Compress::Gzip::gzip( \$content, \$gzippedContent, Level => 9, TextFlag => 1, Time=>0) or die "gzip failed:"; - $gzip = length($content); - $gzipped = length($gzippedContent); + my $gzip = length($content); + my $gzipped = length($gzippedContent); print <