From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 6 Jun 2002 02:40:12 +0000 (+0000)
Subject: With -Ud_stdstdio perl -v and perl -h didn't flush their
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7ca617d028f5e0c89409fa5fdbd4c8507a90e2b1;p=p5sagit%2Fp5-mst-13.2.git

With -Ud_stdstdio perl -v and perl -h didn't flush their
output buffers because they exited with PerlProc_exit()
instead of my_exit() (from Andy Dougherty)

p4raw-id: //depot/perl@17028
---

diff --git a/perl.c b/perl.c
index 2354ce5..ee33a9c 100644
--- a/perl.c
+++ b/perl.c
@@ -2359,7 +2359,7 @@ Perl_moreswitches(pTHX_ char *s)
     }	
     case 'h':
 	usage(PL_origargv[0]);
-	PerlProc_exit(0);
+	my_exit(0);
     case 'i':
 	if (PL_inplace)
 	    Safefree(PL_inplace);
@@ -2597,7 +2597,7 @@ GNU General Public License, which may be found in the Perl 5 source kit.\n\n\
 Complete documentation for Perl, including FAQ lists, should be found on\n\
 this system using `man perl' or `perldoc perl'.  If you have access to the\n\
 Internet, point your browser at http://www.perl.com/, the Perl Home Page.\n\n");
-	PerlProc_exit(0);
+	my_exit(0);
     case 'w':
 	if (! (PL_dowarn & G_WARN_ALL_MASK))
 	    PL_dowarn |= G_WARN_ON;