/./ and rx/./ literals now match against $_ in sink context

rakudo · Feb 21, 2013 · cd95e40 · cd95e40
1 parent 134b008
commit cd95e40
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -4988,7 +4988,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
             $<nibble>.ast, 'anon', '', %sig_info, $block, :use_outer_match(1));
         # Return closure if not in sink context.
         my $closure := block_closure($coderef);
-        $closure<sink_past> := QAST::Op.new( :op('null') );
+        $closure<sink_past> := QAST::Op.new( :op<callmethod>, :name<Bool>, $closure);
         make $closure;
     }
 
@@ -4998,7 +4998,9 @@ class Perl6::Actions is HLL::Actions does STDActions {
         my %sig_info := hash(parameters => []);
         my $coderef := regex_coderef($/, $*W.stub_code_object('Regex'),
             $<quibble>.ast, 'anon', '', %sig_info, $block, :use_outer_match(1));
-        make block_closure($coderef);
+        my $past := block_closure($coderef);
+        $past<sink_past> := QAST::Op.new(:op<callmethod>, :name<Bool>, $past);
+        make $past;
     }
     method quote:sym<m>($/) {
         my $block := QAST::Block.new(QAST::Stmts.new, QAST::Stmts.new, :node($/));