From e8a4728981ff2db0c9ab9d428cef9b6e6f2305fa Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Wed, 8 Aug 2012 07:23:43 -0700 Subject: [PATCH] Allow '?IF 0' Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Config.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm index d55a191c9..980722a93 100644 --- a/Shorewall/Perl/Shorewall/Config.pm +++ b/Shorewall/Perl/Shorewall/Config.pm @@ -1911,7 +1911,7 @@ sub process_conditional( $$$$ ) { my ( $lastkeyword, $prioromit, $included, $lastlinenumber ) = @ifstack ? @{$ifstack[-1]} : ('', 0, 0, 0 ); if ( $keyword =~ /^IF/ ) { - cond_error( "Missing IF expression" , $filename, $linenumber ) unless $expression; + cond_error( "Missing IF expression" , $filename, $linenumber ) unless supplied $expression; my $nextomitting = $omitting || ! evaluate_expression( $expression , $filename, $linenumber ); push @ifstack, [ 'IF', $omitting, ! $nextomitting, $linenumber ]; $omitting = $nextomitting;