From 212d5d17fd4be13e5b15ac5f97119769bca61630 Mon Sep 17 00:00:00 2001 From: Mike Cardwell Date: Tue, 28 Sep 2010 15:39:05 +0100 Subject: [PATCH 1/1] Wasn't enforcing the restriction that you must supply one or more of "--web", "--spec" or "--filter" --- script/gen.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/script/gen.pl b/script/gen.pl index 3c1137b..76734bf 100755 --- 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') - unless ( defined $opt{web} || scalar( @{ $opt{spec} } ) || scalar( @{ $opt{web} } ) ); + unless ( $opt{web} || scalar( @{ $opt{spec} || [] } ) || scalar( @{ $opt{filter} || [] } ) ); return %opt; } -- 2.30.2