From e8428cc298e9c3e22047139c7a91a66f6aab9901 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Tue, 7 Aug 2018 07:42:34 -0700 Subject: [PATCH] Prepare for Perl 5.32 - Escape '{' in REs Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Config.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm index 38977b2fd..a0b6d4807 100644 --- a/Shorewall/Perl/Shorewall/Config.pm +++ b/Shorewall/Perl/Shorewall/Config.pm @@ -2833,7 +2833,7 @@ sub evaluate_expression( $$$$ ) { } # $1 $2 $3 - $4 - while ( $expression =~ m( ^(.*?) \$({)? (\d+|[a-zA-Z_]\w*) (?(2)}) (.*)$ )x ) { + while ( $expression =~ m( ^(.*?) \$(\{)? (\d+|[a-zA-Z_]\w*) (?(2)}) (.*)$ )x ) { my ( $first, $var, $rest ) = ( $1, $3, $4); if ( $var =~ /^\d+$/ ) { @@ -2850,7 +2850,7 @@ sub evaluate_expression( $$$$ ) { if ( $chain ) { # $1 $2 $3 - $4 - while ( $expression =~ m( ^(.*?) \@({)? (\d+|[a-zA-Z]\w*) (?(2)}) (.*)$ )x ) { + while ( $expression =~ m( ^(.*?) \@(\{)? (\d+|[a-zA-Z]\w*) (?(2)}) (.*)$ )x ) { my ( $first, $var, $rest ) = ( $1, $3, $4); $var = numeric_value( $var ) if $var =~ /^\d/; $val = $var ? $actparams{$var} : $chain; @@ -2861,7 +2861,7 @@ sub evaluate_expression( $$$$ ) { } # $1 $2 $3 - $4 - while ( $expression =~ m( ^(.*?) __({)? (\w+) (?(2)}) (.*)$ )x ) { + while ( $expression =~ m( ^(.*?) __(\{)? (\w+) (?(2)}) (.*)$ )x ) { my ( $first, $cap, $rest ) = ( $1, $3, $4); if ( exists $capdesc{$cap} ) { @@ -3791,7 +3791,7 @@ sub expand_variables( \$ ) { my ( $lineref, $count ) = ( $_[0], 0 ); my $chain = $actparams{chain}; # $1 $2 $3 - $4 - while ( $$lineref =~ m( ^(.*?) \$({)? (\d+|[a-zA-Z_]\w*) (?(2)}) (.*)$ )x ) { + while ( $$lineref =~ m( ^(.*?) \$(\{)? (\d+|[a-zA-Z_]\w*) (?(2)}) (.*)$ )x ) { my ( $first, $var, $rest ) = ( $1, $3, $4); @@ -3830,7 +3830,7 @@ sub expand_variables( \$ ) { # $$lineref =~ s/\\@/??/g; # $1 $2 $3 - $4 - while ( $$lineref =~ m( ^(.*?) \@({)? (\d+|[a-zA-Z_]\w*) (?(2)}) (.*)$ )x ) { + while ( $$lineref =~ m( ^(.*?) \@(\{)? (\d+|[a-zA-Z_]\w*) (?(2)}) (.*)$ )x ) { my ( $first, $var, $rest ) = ( $1, $3, $4); my $val = $var ? $actparams{$var} : $actparams{chain}; $usedcaller = USEDCALLER if $var eq 'caller'; @@ -3846,7 +3846,7 @@ sub expand_variables( \$ ) { sub expand_shorewallrc_variables( \$ ) { my ( $lineref, $count ) = ( $_[0], 0 ); # $1 $2 $3 - $4 - while ( $$lineref =~ m( ^(.*?) \$({)? (\d+|[a-zA-Z]\w*) (?(2)}) (.*)$ )x ) { + while ( $$lineref =~ m( ^(.*?) \$(\{)? (\d+|[a-zA-Z]\w*) (?(2)}) (.*)$ )x ) { my ( $first, $var, $rest ) = ( $1, $3, $4);