From d5a9bfb0fc8643b1208bad4f15e3c88ef46b4160 Mon Sep 17 00:00:00 2001 From: Ilya Zakharevich Date: Fri, 9 Jul 1999 01:21:13 -0400 Subject: 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 --- proto.h | 1 + 1 file changed, 1 insertion(+) (limited to 'proto.h') diff --git a/proto.h b/proto.h index fe399f0bcb..e4a9db8b93 100644 --- a/proto.h +++ b/proto.h @@ -95,6 +95,7 @@ VIRTUAL OP* Perl_vdie(pTHX_ const char* pat, va_list* args); VIRTUAL OP* Perl_die_where(pTHX_ char* message, STRLEN msglen); VIRTUAL void Perl_dounwind(pTHX_ I32 cxix); VIRTUAL bool Perl_do_aexec(pTHX_ SV* really, SV** mark, SV** sp); +VIRTUAL bool Perl_do_aexec5(pTHX_ SV* really, SV** mark, SV** sp, int fd, int flag); VIRTUAL int Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int flag); VIRTUAL void Perl_do_chop(pTHX_ SV* asv, SV* sv); VIRTUAL bool Perl_do_close(pTHX_ GV* gv, bool not_implicit); -- cgit v1.2.1