Wasn't enforcing the restriction that you must supply one or more of "--web", "-...
authorMike Cardwell <github@grepular.com>
Tue, 28 Sep 2010 14:39:05 +0000 (15:39 +0100)
committerMike Cardwell <github@grepular.com>
Tue, 28 Sep 2010 14:39:05 +0000 (15:39 +0100)
script/gen.pl

index 3c1137bce534eee1fa487179a576bddfb0cf2023..76734bf1bfa1ebd2d084a93d8aa1c729233052e3 100755 (executable)
@@ -369,7 +369,7 @@ sub parse_arguments {
     error_help('Excess arguments') if ( scalar(@ARGV) );
 
     error_help('Must include at least one of --web, --spec or --filter')
     error_help('Excess arguments') if ( scalar(@ARGV) );
 
     error_help('Must include at least one of --web, --spec or --filter')
-      unless ( defined $opt{web} || scalar( @{ $opt{spec} } ) || scalar( @{ $opt{web} } ) );
+      unless ( $opt{web} || scalar( @{ $opt{spec} || [] } ) || scalar( @{ $opt{filter} || [] } ) );
 
     return %opt;
 }
 
     return %opt;
 }