[GGE::OPTable] cloned closure

Triggered a nasty reentrancy bug if the closure wasn't manually cloned.
masak · May 21, 2010 · 686e6ed · 686e6ed
1 parent 3f4bdd4
commit 686e6ed
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/GGE/OPTable.pm b/lib/GGE/OPTable.pm
@@ -112,7 +112,8 @@ class GGE::OPTable {
             $pos = $oper.to;
             $expect = $token<expect> +> 8;
         };
-        my &reduce = {
+        # RAKUDO: Need to manually clone the closure [perl #73034]
+        my &reduce = pir::clone({
             my $top = pop @tokenstack;
             my $oper = pop @operstack;
             my $reduce = True;
@@ -161,7 +162,7 @@ class GGE::OPTable {
                     $pos = -1;
                 }
             }
-        };
+        });
         while $pos < $target.chars {
             my $stop_matching = False;
             if $stoptoken