Permalink
Browse files

[GGE::OPTable] cloned closure

Another closure that misbehaved if it wasn't cloned explicitly.
  • Loading branch information...
1 parent e87e6a6 commit d15321558aea55c98daf8a6edfe04a5bae6e323e @masak committed May 22, 2010
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/GGE/OPTable.pm
View
@@ -106,12 +106,12 @@ class GGE::OPTable {
}
my $circumnest = 0;
my $expect = GGE_OPTABLE_EXPECT_TERM;
- my &shift_oper = -> $oper, $token {
+ my &shift_oper = pir::clone(-> $oper, $token {
push @tokenstack, $token;
push @operstack, $oper;
$pos = $oper.to;
$expect = $token<expect> +> 8;
- };
+ });
# RAKUDO: Need to manually clone the closure [perl #73034]
my &reduce = pir::clone({
my $top = pop @tokenstack;

0 comments on commit d153215

Please sign in to comment.