Fix a thinko.

rakudo · Apr 15, 2012 · 64f70e8 · 64f70e8
1 parent c384ab7
commit 64f70e8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1818,7 +1818,7 @@ grammar Perl6::Grammar is HLL::Grammar {
                 [
                     <longname>
                     {
-                        my $longname := $*W.disect_longname($<longname>);
+                        my $longname := $*W.disect_longname($<longname>[0]);
                         my @name := $longname.type_name_parts('subset name', :decl(1));
                         if $*W.already_declared($*SCOPE, $*PACKAGE, $*W.cur_lexpad(), @name) {
                             $*W.throw($/, ['X', 'Redeclaration'],