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

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

From:
pmichaud
Date:
December 30, 2008 12:31
Subject:
[svn:parrot] r34664 - branches/rvar/languages/perl6/src/parser
Message ID:
20081230203104.09339CB9FA@x12.develooper.com
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> );



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