From: Nick Ing-Simmons Date: Fri, 20 Apr 2001 18:28:35 +0000 (+0000) Subject: Avoid core dump on X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bd4a56683d81031daed35526f008ae02a99cad90;p=p5sagit%2Fp5-mst-13.2.git Avoid core dump on open(STDOUT,">",\$foo); p4raw-id: //depot/perlio@9766 --- diff --git a/doio.c b/doio.c index 631149d..f65f286 100644 --- a/doio.c +++ b/doio.c @@ -555,7 +555,10 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw, if (savefd != fd) { Pid_t pid; SV *sv; - PerlLIO_dup2(fd, savefd); + if (PerlLIO_dup2(fd, savefd) < 0) { + (void)PerlIO_close(fp); + goto say_false; + } #ifdef VMS if (savefd != PerlIO_fileno(PerlIO_stdin())) { char newname[FILENAME_MAX+1];