Make sure we pass along the correct exit code if we have an exit exce…

…ption.
rakudo · Jul 22, 2009 · e506d36 · e506d36
1 parent 5901f2a
commit e506d36
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/perl6.pir b/perl6.pir
@@ -311,7 +311,8 @@ and report exceptions.
 
   exit:
     pop_eh
-    exit 0
+    $I0 = exception['exit_code']
+    exit $I0
 .end
 .sub 'format_location'
     .param pmc cur_block