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

Clear the current filename after last file is processed.

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2013-06-01 13:03:10 -07:00
parent c5f2eeea80
commit 2d8078033c
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -829,6 +829,10 @@ sub compiler {
#
setup_tunnels;
#
# Clear the current filename
#
clear_currentfilename;
#
# MACLIST Filtration again
#
setup_mac_lists 2;

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

@ -48,6 +48,7 @@ our @EXPORT = qw(
fatal_error
assert
currentlineinfo
clear_currentfilename
progress_message
progress_message_nocompress
@ -658,7 +659,7 @@ sub initialize( $;$$) {
EXPORT => 0,
KLUDGEFREE => '',
STATEMATCH => '-m state --state',
VERSION => "4.5.13-Beta3",
VERSION => "4.5.18-Beta1",
CAPVERSION => 40515 ,
);
#
@ -2167,6 +2168,13 @@ sub close_file() {
}
}
#
# Clear the current filename
#
sub clear_currentfilename() {
$currentfilename = '';
}
#
# Process an ?IF, ?ELSIF, ?ELSE or ?END directive
#