this makes &?ROUTINE available in regex foo { ... }.

rakudo · Mar 12, 2013 · 73ca26a · 73ca26a
1 parent 8104125
commit 73ca26a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -2681,6 +2681,9 @@ class Perl6::Actions is HLL::Actions does STDActions {
         # Install in needed scopes.
         install_method($/, $name, $scope, $code, $outer) if $name ne '';
 
+        # Install &?ROUTINE.
+        $*W.install_lexical_symbol($block, '&?ROUTINE', $code);
+
         # Return a reference to the code object
         reference_to_code_object($code, $past);
     }