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

Eliminate a couple of local variables

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@7035 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-08-03 14:26:19 +00:00
parent d480e79c9c
commit ddbbb6c0b6
1 changed files with 19 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
Shorewall-perl/Shorewall/Chains.pm
View File

@ -220,8 +220,6 @@ use constant { NULL_STATE => 0 , # Generating neither shell commands nor iptab
CMD_STATE => 2 }; # Generating shell commands.
our $state;
our $emitted_comment;
our $emitted_test;
#
# Initialize globals -- we take this novel approach to globals initialization to allow
@ -309,14 +307,6 @@ sub initialize() {
%interfaceaddrs = ();
%interfacenets = ();
%interfacebcasts = ();
#
# When true, we've emitted a comment about global variable initialization
#
$emitted_comment = 0;
#
# When true, we've emitted a test of $COMMAND != restore
#
$emitted_test = 0;
}
INIT {
@ -1848,22 +1838,18 @@ sub insertnatjump( $$$$ ) {
}
}
sub emit_comment() {
unless ( $emitted_comment ) {
emit ( '#',
'# Establish the values of shell variables used in the following function calls',
'#' );
$emitted_comment = 1;
}
sub emit_comment( $ ) {
emit ( '#',
'# Establish the values of shell variables used in the following function calls',
'#' );
${$_[0]} = 1;
}
sub emit_test() {
unless ( $emitted_test ) {
emit ( 'if [ "$COMMAND" != restore ]; then' ,
'' );
push_indent;
$emitted_test = 1;
}
sub emit_test( $ ) {
emit ( 'if [ "$COMMAND" != restore ]; then' ,
'' );
push_indent;
${$_[0]} = 1;
}
#
@ -1871,26 +1857,28 @@ sub emit_test() {
#
sub set_global_variables() {
my ( $emitted_comment, $emitted_test ) = (0, 0);
for ( values %interfaceaddr ) {
emit_comment unless $emitted_comment;
emit_comment( \$emitted_comment ) unless $emitted_comment;
emit $_;
}
for ( values %interfaceaddrs ) {
emit_comment unless $emitted_comment;
emit_test unless $emitted_test;
emit_comment( \$emitted_comment ) unless $emitted_comment;
emit_test( \$emitted_test ) unless $emitted_test;
emit $_;
}
for ( values %interfacenets ) {
emit_comment unless $emitted_comment;
emit_test unless $emitted_test;
emit_comment( \$emitted_comment ) unless $emitted_comment;
emit_test( \$emitted_test ) unless $emitted_test;
emit $_;
}
unless ( $capabilities{ADDRTYPE} ) {
emit_comment unless $emitted_comment;
emit_test unless $emitted_test;
emit_comment( \$emitted_comment ) unless $emitted_comment;
emit_test( \$emitted_test ) unless $emitted_test;
emit 'ALL_BCASTS="$(get_all_bcasts) 255.255.255.255"';
for ( values %interfacebcasts ) {