return Nil from a try when an error was thrown

rakudo · Dec 10, 2012 · 9831e45 · 9831e45
1 parent f5a8f2b
commit 9831e45
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1110,7 +1110,6 @@ class Perl6::Actions is HLL::Actions does STDActions {
 
                 # On failure, capture the exception object into $!.
                 'CATCH', QAST::Stmts.new(
-                    :resultchild(0),
                     QAST::Op.new(
                         :op('p6store'),
                         QAST::Var.new(:name<$!>, :scope<lexical>),
@@ -1123,7 +1122,10 @@ class Perl6::Actions is HLL::Actions does STDActions {
                         pirop => 'perl6_invoke_catchhandler 1PP',
                         QAST::Op.new( :op('null') ),
                         QAST::Op.new( :op('exception') )
-                    )
+                    ),
+                    QAST::WVal.new(
+                        :value( $*W.find_symbol(['Nil']) ),
+                    ),
                 )
             );
         }