perl.patch

   1 diff -ur shorewall-5.2.0.5.orig/shorewall-5.2.0.5/Perl/Shorewall/Chains.pm shorewall-5.2.0.5/shorewall-5.2.0.5/Perl/Shorewall/Chains.pm
   2 --- shorewall-5.2.0.5.orig/shorewall-5.2.0.5/Perl/Shorewall/Chains.pm   2018-08-05 17:31:09.000000000 +0000
   3 +++ shorewall-5.2.0.5/shorewall-5.2.0.5/Perl/Shorewall/Chains.pm        2018-09-06 15:14:31.187972699 +0000
   4 @@ -5819,7 +5819,7 @@
   5
   6      $chain =~ s/[^\w-]//g;
   7      #                          $1    $2      -     $3
   8 -    while ( $condition =~ m( ^(.*?) @({)?(?:0|chain)(?(2)}) (.*)$ )x ) {
   9 +    while ( $condition =~ m( ^(.*?) @(\{)?(?:0|chain)(?(2)}) (.*)$ )x ) {
  10         $condition = join( '', $1, $chain, $3 );
  11      }
  12
  13 diff -ur shorewall-5.2.0.5.orig/shorewall-5.2.0.5/Perl/Shorewall/Config.pm shorewall-5.2.0.5/shorewall-5.2.0.5/Perl/Shorewall/Config.pm
  14 --- shorewall-5.2.0.5.orig/shorewall-5.2.0.5/Perl/Shorewall/Config.pm   2018-08-05 17:31:09.000000000 +0000
  15 +++ shorewall-5.2.0.5/shorewall-5.2.0.5/Perl/Shorewall/Config.pm        2018-09-06 15:14:25.806972759 +0000
  16 @@ -2833,7 +2833,7 @@
  17      }
  18
  19      #                         $1      $2   $3                     -     $4
  20 -    while ( $expression =~ m( ^(.*?) \$({)? (\d+|[a-zA-Z_]\w*) (?(2)}) (.*)$ )x ) {
  21 +    while ( $expression =~ m( ^(.*?) \$(\{)? (\d+|[a-zA-Z_]\w*) (?(2)}) (.*)$ )x ) {
  22         my ( $first, $var, $rest ) = ( $1, $3, $4);
  23
  24         if ( $var =~ /^\d+$/ ) {
  25 @@ -2850,7 +2850,7 @@
  26
  27      if ( $chain ) {
  28         #                         $1      $2   $3                     -     $4
  29 -       while ( $expression =~ m( ^(.*?) \@({)? (\d+|[a-zA-Z]\w*) (?(2)}) (.*)$ )x ) {
  30 +       while ( $expression =~ m( ^(.*?) \@(\{)? (\d+|[a-zA-Z]\w*) (?(2)}) (.*)$ )x ) {
  31             my ( $first, $var, $rest ) = ( $1, $3, $4);
  32             $var = numeric_value( $var ) if $var =~ /^\d/;
  33             $val = $var ? $actparams{$var} : $chain;
  34 @@ -2861,7 +2861,7 @@
  35      }
  36
  37      #                         $1      $2   $3      -     $4
  38 -    while ( $expression =~ m( ^(.*?) __({)? (\w+) (?(2)}) (.*)$ )x ) {
  39 +    while ( $expression =~ m( ^(.*?) __(\{)? (\w+) (?(2)}) (.*)$ )x ) {
  40         my ( $first, $cap, $rest ) = ( $1, $3, $4);
  41
  42         if ( exists $capdesc{$cap} ) {
  43 @@ -3791,7 +3791,7 @@
  44      my ( $lineref, $count ) = ( $_[0], 0 );
  45      my $chain = $actparams{chain};
  46      #                         $1      $2   $3                   -     $4
  47 -    while ( $$lineref =~ m( ^(.*?) \$({)? (\d+|[a-zA-Z_]\w*) (?(2)}) (.*)$ )x ) {
  48 +    while ( $$lineref =~ m( ^(.*?) \$(\{)? (\d+|[a-zA-Z_]\w*) (?(2)}) (.*)$ )x ) {
  49
  50         my ( $first, $var, $rest ) = ( $1, $3, $4);
  51
  52 @@ -3830,7 +3830,7 @@
  53         #
  54         $$lineref =~ s/\\@/??/g;
  55         #                         $1      $2   $3                     -     $4
  56 -       while ( $$lineref =~ m( ^(.*?) \@({)? (\d+|[a-zA-Z_]\w*) (?(2)}) (.*)$ )x ) {
  57 +       while ( $$lineref =~ m( ^(.*?) \@(\{)? (\d+|[a-zA-Z_]\w*) (?(2)}) (.*)$ )x ) {
  58             my ( $first, $var, $rest ) = ( $1, $3, $4);
  59             my $val = $var ? $actparams{$var} : $actparams{chain};
  60             $usedcaller = USEDCALLER if $var eq 'caller';
  61 @@ -3846,7 +3846,7 @@
  62  sub expand_shorewallrc_variables( \$ ) {
  63      my ( $lineref, $count ) = ( $_[0], 0 );
  64      #                         $1      $2   $3                  -     $4
  65 -    while ( $$lineref =~ m( ^(.*?) \$({)? (\d+|[a-zA-Z]\w*) (?(2)}) (.*)$ )x ) {
  66 +    while ( $$lineref =~ m( ^(.*?) \$(\{)? (\d+|[a-zA-Z]\w*) (?(2)}) (.*)$ )x ) {
  67
  68         my ( $first, $var, $rest ) = ( $1, $3, $4);
  69