check ARGV definedness

parrot · Aug 31, 2011 · f5ee33e · f5ee33e
1 parent f9b4167
commit f5ee33e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tools/dev/all_hll_test.pl b/tools/dev/all_hll_test.pl
@@ -38,7 +38,7 @@ =head1 DESCRIPTION
 mkdir $install_dir;
 my $status = [];
 my $verbose = 0;
-if ($ARGV[0] eq '-v' || $ARGV[0] eq '--verbose') {
+if (defined $ARGV[0] && ($ARGV[0] eq '-v' || $ARGV[0] eq '--verbose')) {
     $verbose = 1;
 }