Integrate with mainperl.

p4raw-id: //depot/cfgperl@3576

1 files changed, 2 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index cb3abddb08..a869678048 100644
--- a/perl.c
+++ b/perl.c
@@ -1088,6 +1088,8 @@ S_run_body(pTHX_ va_list args)
 	CALLRUNOPS(aTHX);
     }
 
+    my_exit(0);
+    /* NOTREACHED */
     return NULL;
 }