From aac00c3cc703d49f6fd47d4a5001f96313e83cc5 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Sat, 5 May 2012 10:31:55 -0700 Subject: [PATCH] Pop open stack in run_user_exit1 and run_user_exit2 Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Config.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm index d577a1e69..8f428ad6c 100644 --- a/Shorewall/Perl/Shorewall/Config.pm +++ b/Shorewall/Perl/Shorewall/Config.pm @@ -4375,6 +4375,7 @@ sub run_user_exit1( $ ) { if ( read_a_line( STRIP_COMMENTS | SUPPRESS_WHITESPACE | CHECK_GUNK ) ) { close_file; + pop_open; my $command = qq(package Shorewall::User;\n# line 1 "$file"\n) . `cat $file`; @@ -4406,6 +4407,7 @@ sub run_user_exit2( $$ ) { if ( read_a_line( STRIP_COMMENTS | SUPPRESS_WHITESPACE | CHECK_GUNK ) ) { close_file; + pop_open; unless (my $return = eval `cat $file` ) { fatal_error "Couldn't parse $file: $@" if $@;