[svn:parrot] r32416 - branches/rakon/languages/perl6/src/parser

[pmichaud]

Author: pmichaud
Date: Thu Nov  6 22:39:00 2008
New Revision: 32416

Modified:
   branches/rakon/languages/perl6/src/parser/actions.pm

Log:
[rakudo]:  Make sure that "$a" and "{3}" return Str.


Modified: branches/rakon/languages/perl6/src/parser/actions.pm
==============================================================================
--- branches/rakon/languages/perl6/src/parser/actions.pm        (original)
+++ branches/rakon/languages/perl6/src/parser/actions.pm        Thu Nov  6 
22:39:00 2008
@@ -2601,13 +2601,14 @@
         );
     }
     elsif ($key eq 'variable') {
-        $past := $( $<variable> );
+        $past := PAST::Op.new( $( $<variable> ), :name('prefix:~'), 
:pasttype('call') );
     }
     elsif ($key eq 'circumfix') {
         $past := $( $<circumfix> );
         if $past.isa(PAST::Block) {
             $past.blocktype('immediate');
         }
+        $past := PAST::Op.new( $past, :name('prefix:~'), :pasttype('call') );
     }
     make $past;
 }