[Actions] Permit »+=», «*=», etc.

rakudo · Oct 7, 2010 · 377615e · 377615e
1 parent 99c80ec
commit 377615e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -2522,7 +2522,7 @@ method infix_circumfix_meta_operator:sym<« »>($/) {
 sub make_hyperop($/) {
     my $opsub := '&infix:<' ~ ~$/ ~ '>';
     unless %*METAOPGEN{$opsub} {
-        my $base_op := '&infix:<' ~ $<infixish><OPER>.Str ~ '>';
+        my $base_op := '&infix:<' ~ $<infixish>.Str ~ '>';
         my $dwim_lhs := $<opening> eq '<<' || $<opening> eq '«';
         my $dwim_rhs := $<closing> eq '>>' || $<closing> eq '»';
         $*UNITPAST.loadinit.push(PAST::Op.new(