[svn:parrot] r35080 - branches/rvar/languages/perl6/src/parser

Author: jonathan
Date: Tue Jan  6 13:40:38 2009
New Revision: 35080

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

Log:
[rakudo] Restore check to make sure we can only multi/only/proto a named routine, as per S06.

Modified: branches/rvar/languages/perl6/src/parser/actions.pm
==============================================================================
--- branches/rvar/languages/perl6/src/parser/actions.pm	(original)
+++ branches/rvar/languages/perl6/src/parser/actions.pm	Tue Jan  6 13:40:38 2009
@@ -516,6 +516,11 @@
     my $past :=  $<declarator> ?? $( $<declarator> ) !! $( $<routine_def> );
 
     if $past.isa(PAST::Block) {
+        # If we have a multi declarator, must have a named routine too.
+        if $sym ne "" && $past.name() eq "" {
+            $/.panic("'" ~ $<sym> ~ "' can only be used on named routines");
+        }
+
         # If we're declaring a multi or a proto, flag the sub as :multi,
         # and transform the sub's container to a Perl6MultiSub.
         if $sym eq 'multi' || $sym eq 'proto' {

• [svn:parrot] r35080 - branches/rvar/languages/perl6/src/parser by jonathan