Compile a block's exception handlers in predictable order

rakudo · May 1, 2019 · 95af2f4 · 95af2f4
1 parent 7926cdd
commit 95af2f4
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -1805,9 +1805,10 @@ class Perl6::Actions is HLL::Actions does STDActions {
         $past.push(QAST::WVal.new(:value($ret))) if nqp::isconcrete($ret) || $ret.HOW.name($ret) eq 'Nil';
         if %*HANDLERS {
             $past := QAST::Op.new( :op('handle'), $past );
-            for %*HANDLERS {
+            my %handlers := %*HANDLERS;
-                $past.push($_.key);
+            for sorted_keys(%handlers) {
-                $past.push($_.value);
+                $past.push($_);
+                $past.push(%handlers{$_});
             }
         }
         $past