From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 4 Jul 1999 20:29:32 +0000 (+0000)
Subject: perl_run() should call my_exit(0) for normal completion
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f70166d5938e239dffca56d3a48789e2071447cf;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 }