want insides of s/// and ~~

rakudo · Dec 16, 2015 · a67c726 · a67c726
1 parent 3a82a2e
commit a67c726
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -2213,7 +2213,7 @@ Compilation unit '$file' contained the following violations:
                     )
                 ),
                 # And finally evaluate to the smart-match result.
-                QAST::Var.new( :name($result_var), :scope('local') )
+                WANTED(QAST::Var.new( :name($result_var), :scope('local') ),'make_smartmatch')
             );
             $past := QAST::Op.new( :op('locallifetime'), $past, $result_var );
         }
@@ -7501,7 +7501,7 @@ Compilation unit '$file' contained the following violations:
             ),
         );
         $past.annotate('is_S', $<sym> eq 'S');
-        make $past;
+        make WANTED($past, 's///');  # never carp about s/// in sink context
     }
 
     method quote:sym<quasi>($/) {