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