Permalink
Browse files

Check for whether $ARGV[0] to avoid uninitialized value warning when …

…calling

Configure.pl with no command-line arguments.


git-svn-id: https://svn.parrot.org/parrot/trunk@30645 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
1 parent 183a8ec commit 468e95850bb2f948c657bcda4d5d9d0f14934607 @jkeenan jkeenan committed Aug 30, 2008
Showing with 1 addition and 1 deletion.
  1. +1 −1 Configure.pl
View
@@ -36,7 +36,7 @@
# from Parrot::Configure::Options
my ($args, $steps_list_ref) = process_options(
{
- mode => ($ARGV[0] =~ /^--file=/)
+ mode => (defined $ARGV[0] and $ARGV[0] =~ /^--file=/)
? 'file'
: 'configure',
argv => [@ARGV],

0 comments on commit 468e958

Please sign in to comment.