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

[pmichaud]

Author: pmichaud
Date: Tue Dec 30 12:31:03 2008
New Revision: 34664

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

Log:
[rakudo]: Remove $?SIGNATURE_BLOCK after grabbing signature as a declarator.



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 Dec 30 12:31:03 2008
@@ -1802,6 +1802,8 @@
     }
     elsif $<signature> {
         $past := $( $<signature> );
+        our $?SIGNATURE_BLOCK;
+        $?SIGNATURE_BLOCK := 0;
     }
     elsif $<routine_declarator> {
         $past := $( $<routine_declarator> );