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

[jonathan]

Author: jonathan
Date: Thu Aug  7 08:24:44 2008
New Revision: 30093

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

Log:
[rakudo] Fix a regression in the handles trait verb.

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Thu Aug  7 08:24:44 2008
@@ -2951,8 +2951,8 @@
     my $meth;
 
     # Single pair mapping. Check we have string name and value.
-    my $key := $pair[1];
-    my $value := $pair[2];
+    my $key := $pair[0];
+    my $value := $pair[1];
     if $key.WHAT() eq 'Val' && $value.WHAT() eq 'Val' {
         my $from_name := ~$key.value();
         my $to_name := ~$value.value();