make &eval a multi

that way it is easier for fglock++ to experiment with p5 eval
rakudo · May 26, 2012 · e756635 · e756635
1 parent 4904b02
commit e756635
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/control.pm b/src/core/control.pm
@@ -141,7 +141,8 @@ multi sub warn(*@msg) is hidden_from_backtrace {
     0;
 }
 
-sub eval(Str $code, :$lang = 'perl6') {
+proto sub eval(|$) {*}
+multi sub eval(Str $code, :$lang = 'perl6') {
     my $caller_ctx := Q:PIR {
         $P0 = getinterp
         %r = $P0['context';1]