extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-12-23 22:58:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

Another tiny performance enhancement

Browse Source
This commit is contained in:
Tom Eastep 2009-08-17 12:58:50 -07:00
parent 49a2ff05ce
commit 787a1867a0
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Shorewall/Perl/Shorewall/Accounting.pm
View File

@ -38,7 +38,7 @@ our @EXPORT_OK = qw( );
our $VERSION = '4.3_7';
#
# Called by the compiler
# Called by the compiler to [re-]initialize this module's state
#
sub initialize() {
our $jumpchainref;

5
Shorewall/Perl/Shorewall/Chains.pm
View File

@ -414,10 +414,11 @@ sub decr_cmd_level( $ ) {
#
sub add_commands ( $$;@ ) {
my $chainref = shift @_;
my $chainref = shift @_;
my $indentation = ' ' x $chainref->{cmdlevel};
for ( @_ ) {
push @{$chainref->{rules}}, join ('', ' ' x $chainref->{cmdlevel} , $_ );
push @{$chainref->{rules}}, join ('', $indentation , $_ );
}
$chainref->{referenced} = 1;

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

@ -571,7 +571,7 @@ sub compiler {
}
#
# Now that we know the address family that we are dealing with (IPv4/IPv6), we can initialize the other modules' globals
# Now that we know the address family (IPv4/IPv6), we can initialize the other modules' globals
#
initialize_package_globals;