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

[svn:parrot] r33784 - trunk/languages/perl6/src/parser

From:
tene
Date:
December 10, 2008 15:55
Subject:
[svn:parrot] r33784 - trunk/languages/perl6/src/parser
Message ID:
20081210235538.DAF4DCBA89@x12.develooper.com
Author: tene
Date: Wed Dec 10 15:55:38 2008
New Revision: 33784

Modified:
   trunk/languages/perl6/src/parser/actions.pm

Log:
[rakudo]: Fix the ordering of multiple CATCH blocks in a block.

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm	(original)
+++ trunk/languages/perl6/src/parser/actions.pm	Wed Dec 10 15:55:38 2008
@@ -398,7 +398,7 @@
     if $?BLOCK.handlers() {
         @handlers := $?BLOCK.handlers();
     }
-    @handlers.push($eh);
+    @handlers.unshift($eh);
     $?BLOCK.handlers(@handlers);
     make PAST::Stmts.new();
 }



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