[svn:parrot] r35246 - branches/rvar2/languages/perl6/src/parser

[pmichaud]

Author: pmichaud
Date: Thu Jan  8 22:34:50 2009
New Revision: 35246

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

Log:
[rakudo]: Corrected version of ::Type in declarational context.


Modified: branches/rvar2/languages/perl6/src/parser/actions.pm
==============================================================================
--- branches/rvar2/languages/perl6/src/parser/actions.pm        (original)
+++ branches/rvar2/languages/perl6/src/parser/actions.pm        Thu Jan  8 
22:34:50 2009
@@ -1923,7 +1923,7 @@
 
 method fulltypename($/) {
     my $past := $( $<typename> );
-    if substr( ~$<typename>, 0, 2) eq '::' {
+    if substr( $<typename>.text(), 0, 2) eq '::' {
         $past.isdecl(1);
         $past.scope('lexical');
     }