From b224eb80d5beb7a11393b75549fc189db1d3ce43 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Wed, 1 Dec 2010 09:21:23 -0800 Subject: [PATCH] Omit warning message --- Shorewall/Perl/Shorewall/Config.pm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm index ef410c109..5883d29e0 100644 --- a/Shorewall/Perl/Shorewall/Config.pm +++ b/Shorewall/Perl/Shorewall/Config.pm @@ -2905,13 +2905,9 @@ sub get_params() { fatal_error "Processing of $fn failed" if $?; - my $variable; - for ( @params ) { if ( /^export (.*?)='(.*)'$/ ) { - $params{$variable = $1} = $2 unless $1 eq '_'; - } elsif ( /^export (.*?)='/ ) { - warning_message "Exported symbol '$1' ignored"; + $params{$1} = $2 unless $1 eq '_'; } } }