Wasn't enforcing the restriction that you must supply one or more of "--web", "-...

diff --git a/script/gen.pl b/script/gen.pl
index 3c1137bce534eee1fa487179a576bddfb0cf2023..76734bf1bfa1ebd2d084a93d8aa1c729233052e3 100755 (executable)
--- a/script/gen.pl
+++ b/script/gen.pl
@@ -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;
 }