Fix an $/ handling issue, which fixes two more of the Rakudo spectest…

… file regressions.
Raku · Aug 31, 2012 · a94c294 · a94c294
1 parent 9e875a2
commit a94c294
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -524,7 +524,9 @@ class NQP::Actions is HLL::Actions {
         my $past;
         if $<postcircumfix> {
             $past := $<postcircumfix>.ast;
-            $past.unshift( QAST::Var.new( :name('$/'), :scope('lexical') ) );
+            $past.unshift(QAST::VarWithFallback.new(
+                :name('$/'), :scope('lexical'), :fallback(default_for('$'))
+            ));
         }
         else {
             my @name := NQP::Compiler.parse_name(~$/);