From d31221b03c5128e33ede5984ebe3babf402ec8e2 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Sun, 20 Jan 2013 07:26:10 -0800 Subject: [PATCH] Fix variable assignment. Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Config.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm index b6696e1f5..1aeba5d38 100644 --- a/Shorewall/Perl/Shorewall/Config.pm +++ b/Shorewall/Perl/Shorewall/Config.pm @@ -2283,13 +2283,13 @@ sub process_compiler_directive( $$$$ ) { if ( ( $1 || '' ) eq '@' ) { $var = numeric_value( $var ) if $var =~ /^\d/; $var = $2 || 'chain'; - directive_error( "Action variables may only be SET in the body of an action", $filename, $linenumber ) unless $actparms{0}; + directive_error( "Shorewall variables may only be SET in the body of an action", $filename, $linenumber ) unless $actparms{0}; my $val = $actparms{$var} = evaluate_expression ( $expression, $filename, $linenumber ); $parmsmodified = 1; } else { - $variables{$1} = evaluate_expression( $expression, + $variables{$2} = evaluate_expression( $expression, $filename, $linenumber ); }