[svn:parrot] r35840 - trunk/languages/perl6/src/parser

Author: jonathan
Date: Tue Jan 20 12:40:52 2009
New Revision: 35840

Modified:
   trunk/languages/perl6/src/parser/actions.pm

Log:
[rakudo] Make :$foo form of colonpair work again.

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm	(original)
+++ trunk/languages/perl6/src/parser/actions.pm	Tue Jan 20 12:40:52 2009
@@ -2603,10 +2603,10 @@
         }
     }
     elsif $key eq 'varname' {
-        if $<desigilname><name> {
-            $pair_key := PAST::Val.new( :value( ~$<desigilname> ) );
+        if $<desigilname><longname> {
+            $pair_key := PAST::Val.new( :value( $<desigilname>.text() ) );
             $pair_val := PAST::Var.new(
-                :name( ~$<sigil> ~ ~$<twigil> ~ ~$<desigilname> )
+                :name( ~$<sigil> ~ ~$<twigil> ~ $<desigilname>.text() )
             );
         }
         else {