perl_run() should call my_exit(0) for normal completion

p4raw-id: //depot/perl@3572

diff --git a/perl.c b/perl.c
index 4c1eecc..22593fb 100644 (file)
--- 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;
 }