A block with exception handlers should not be inlined; fixes one of t…

…he broken test cases.
rakudo · Oct 2, 2011 · 34c0d41 · 34c0d41
1 parent bd4c869
commit 34c0d41
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Optimizer.pm b/src/Perl6/Optimizer.pm
@@ -74,7 +74,7 @@ class Perl6::Optimizer {
 
         # If the block is immediate, we may be able to inline it.
         my $outer := @!block_stack[+@!block_stack - 1];
-        if $block.blocktype eq 'immediate' && !$outer.handlers() {
+        if $block.blocktype eq 'immediate' && !$block.handlers() && !$outer.handlers() {
             # Scan symbols for any non-interesting ones.
             # XXX Shouldn't have to care about $/ and $! here...
             my @sigsyms;