From ec848ebc0199bd778b2a297726e2b38371494e8b Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Sat, 17 Dec 2011 10:09:23 -0800 Subject: [PATCH] Parenthesize qa/.../ in embedded Perl Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Config.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm index 5ca4092de..cb985d76a 100644 --- a/Shorewall/Perl/Shorewall/Config.pm +++ b/Shorewall/Perl/Shorewall/Config.pm @@ -1794,7 +1794,7 @@ sub embedded_shell( $ ) { sub embedded_perl( $ ) { my $multiline = shift; - my ( $command , $linenumber ) = ( qq(package Shorewall::User;\nno strict;\nuse Shorewall::Config qw/shorewall/;\n# line $currentlinenumber "$currentfilename"\n$currentline), $currentlinenumber ); + my ( $command , $linenumber ) = ( qq(package Shorewall::User;\nno strict;\nuse Shorewall::Config (qw/shorewall/);\n# line $currentlinenumber "$currentfilename"\n$currentline), $currentlinenumber ); if ( $multiline ) { # @@ -3534,7 +3534,6 @@ sub get_configuration( $$$ ) { get_capabilities( $export ); - $globals{STATEMATCH} = '-m conntrack --ctstate' if have_capability 'CONNTRACK_MATCH'; if ( my $rate = $config{LOGLIMIT} ) {