holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Correct rule-generation detection in perl_action_helper

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2013-01-29 09:43:12 -08:00
parent 221f4909b5
commit 61d8f704f9
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Shorewall/Perl/Shorewall/Rules.pm
View File

@ -2665,11 +2665,11 @@ sub perl_action_helper($$) {
assert( $chainref ); assert( $chainref );
if ( $inlines{$action} ) { if ( $inlines{$action} ) {
&process_rule1( $chainref, $result = &process_rule1( $chainref,
$matches, $matches,
$target, $target,
'', '', # CurrentParam
@columns ); @columns );
} else { } else {
$result = process_rule1( $chainref, $result = process_rule1( $chainref,
$matches, $matches,
@ -2692,7 +2692,9 @@ sub perl_action_helper($$) {
0, # Wildcard 0, # Wildcard
); );
} }
#
# Record that we generated a rule to avoid bogus warning
#
$actionresult ||= $result; $actionresult ||= $result;
} }
@ -2742,7 +2744,9 @@ sub perl_action_tcp_helper($$) {
0, # Wildcard 0, # Wildcard
); );
} }
#
# Record that we generated a rule to avoid bogus warning
#
$actionresult ||= $result; $actionresult ||= $result;
} }