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

Avoid a fatal Perl error in Config::cleanup when an fatal error occurs

Browse Source 
while compiling a default action.

Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2013-01-11 15:50:23 -08:00
parent 38097bef5d
commit b53fd39b49
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Shorewall/Perl/Shorewall/Config.pm
View File

@ -1128,8 +1128,8 @@ sub cleanup() {
for ( my $i = @openstack - 1; $i >= 0; $i-- ) { for ( my $i = @openstack - 1; $i >= 0; $i-- ) {
my $istack = $openstack[$i]; my $istack = $openstack[$i];
for ( my $j = ( @$istack - 1 ); $j >= 0; $j-- ) { for ( my $j = ( @$istack - 1 ); $j >= 0; $j-- ) {
my $info = $istack->[$j]; my $info = $istack->[$j][0];
close $info->[0]; close $info if $info;
} }
} }
} }

2
Shorewall/Perl/lib.core
View File

@ -1324,4 +1324,4 @@ clear_firewall() {
logger -p kern.info "$g_product Cleared" logger -p kern.info "$g_product Cleared"
} }
?endif ?endif # IPv6-specific functions.