Fix quoted private method calls.

rakudo · Jul 14, 2012 · cfbb2fc · cfbb2fc
1 parent dda694c
commit cfbb2fc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/QPerl6/Actions.pm b/src/QPerl6/Actions.pm
@@ -3031,8 +3031,9 @@ class QPerl6::Actions is HLL::Actions {
             $past.name('dispatch:<!>');
         }
         elsif $<methodop><quote> {
+            my $name := $past.shift;
             $past.unshift(QAST::WVal.new( :value($*PACKAGE) ));
-            $past.unshift($<methodop><quote>.ast);
+            $past.unshift($name);
             $past.name('dispatch:<!>');
         }
         else {