print usage if no arguments
authorKen-ichi Mito <mitty@mitty.jp>
Tue, 4 Mar 2014 21:49:04 +0000 (06:49 +0900)
committerKen-ichi Mito <mitty@mitty.jp>
Tue, 4 Mar 2014 21:49:04 +0000 (06:49 +0900)
misc/httpbench.pl

index c36ed64..78191dd 100755 (executable)
@@ -9,6 +9,8 @@ use Parallel::ForkManager;
 use LWP::Simple;
 use Time::HiRes qw(sleep);
 
+usage() if (@ARGV == 0);
+
 GetOptions(
     'h|help'            => \ my $help,
     'i|inputfile=s'     => \ my $file,