develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
jonathan
Date:
December 17, 2008 08:03
Subject:
[svn:parrot] r34030 - trunk/languages/perl6/src/parser
Message ID:
20081217160325.451D1CBC1B@x12.develooper.com
Author: jonathan
Date: Wed Dec 17 08:03:22 2008
New Revision: 34030

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

Log:
[rakudo] Fix indirect calls on private methoeds.

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm	(original)
+++ trunk/languages/perl6/src/parser/actions.pm	Wed Dec 17 08:03:22 2008
@@ -1563,11 +1563,13 @@
             $past.name('!' ~ $past.name());
         }
         elsif $methodop<quote> {
-            $past[0] := PAST::Op.new(
-                :pasttype('call'),
-                :name('infix:~'),
-                PAST::Val.new( :value('!') ),
-                $past[0]
+            $past.name(
+                PAST::Op.new(
+                    :pasttype('call'),
+                    :name('infix:~'),
+                    '!',
+                    $past.name()
+                )
             );
         }
     }



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About