Do not inline stuff that warns

rakudo · Feb 1, 2013 · 8f39611 · 8f39611
1 parent 5e5a76f
commit 8f39611
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Perl6/Optimizer.pm b/src/Perl6/Optimizer.pm
@@ -311,7 +311,10 @@ class Perl6::Optimizer {
                         my $ret_value;
                         try {
                             $ret_value := $obj(|@args);
-                            $survived  := 1;
+                            $survived  := 1 ;
+                            CONTROL {
+                                $survived := 0;
+                            }
                         }
                         if $survived {
                             $*W.add_object($ret_value);