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

A couple of cosmetic changes

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5775 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-03-31 22:03:16 +00:00
parent b1587a7b1f
commit 040fd9b92e
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
New/Shorewall/Common.pm
View File

@ -316,7 +316,6 @@ END {
close $object;
unlink $tempfile;
}
}
1;

4
New/Shorewall/Config.pm
View File

@ -772,7 +772,7 @@ sub generate_aux_config() {
create_temp_aux_config;
emit( "#\n# Shorewall auxiliary configuration file created by Shorewall-perl version " . $globals{VERSION} . ' - ' . ( localtime ) . "\n#" );
emit join ( '', "#\n# Shorewall auxiliary configuration file created by Shorewall-perl version ", $globals{VERSION}, ' - ' , localtime , "\n#" );
for my $option qw(VERBOSITY LOGFILE LOGFORMAT IPTABLES PATH SHOREWALL_SHELL SUBSYSLOCK RESTOREFILE SAVE_IPSETS) {
conditionally_add_option $option;
@ -787,9 +787,7 @@ sub generate_aux_config() {
END {
if ( $tmp_dir ) {
my $exitstatus = $?; #Changed by system()
system "rm -rf $tmp_dir";
$? = $exitstatus;
}
}