make system() return -1 and set $! if exec of child failed

	Message-ID: <19990709052113.A6201@monk.mps.ohio-state.edu>
	Subject: [PATCH 5.005_57] system()==-1 and $! from failing fork/exec

p4raw-id: //depot/perl@3679

1 files changed, 7 insertions, 0 deletions

diff --git a/perlapi.c b/perlapi.c
index d3ebc9b3d0..037ad3d77a 100755
--- a/perlapi.c
+++ b/perlapi.c
@@ -682,6 +682,13 @@ Perl_do_aexec(pTHXo_ SV* really, SV** mark, SV** sp)
     return ((CPerlObj*)pPerl)->Perl_do_aexec(really, mark, sp);
 }
 
+#undef  Perl_do_aexec5
+bool
+Perl_do_aexec5(pTHXo_ SV* really, SV** mark, SV** sp, int fd, int flag)
+{
+    return ((CPerlObj*)pPerl)->Perl_do_aexec5(really, mark, sp, fd, flag);
+}
+
 #undef  Perl_do_binmode
 int
 Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int flag)