Pop open stack in run_user_exit1 and run_user_exit2

Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2012-05-05 10:31:55 -07:00
parent cd35b6a13f
commit aac00c3cc7

View File

@ -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 $@;