extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-12-22 14:20:40 +01:00
Code Issues Packages Projects Releases Wiki 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 4340bcffb1
commit 7dbd50708b
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; setup_tunnels;
# #
# Clear the current filename
#
clear_currentfilename;
#
# MACLIST Filtration again # MACLIST Filtration again
# #
setup_mac_lists 2; setup_mac_lists 2;

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

@ -48,6 +48,7 @@ our @EXPORT = qw(
fatal_error fatal_error
assert assert
currentlineinfo currentlineinfo
clear_currentfilename
progress_message progress_message
progress_message_nocompress progress_message_nocompress
@ -658,7 +659,7 @@ sub initialize( $;$$) {
EXPORT => 0, EXPORT => 0,
KLUDGEFREE => '', KLUDGEFREE => '',
STATEMATCH => '-m state --state', STATEMATCH => '-m state --state',
VERSION => "4.5.13-Beta3", VERSION => "4.5.18-Beta1",
CAPVERSION => 40515 , 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 # Process an ?IF, ?ELSIF, ?ELSE or ?END directive
# #