diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-03-22 07:47:41 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-03-22 07:47:41 +0000 |
| commit | dd37d22f759197ae537bfc89e7f0cd73321b19b3 (patch) | |
| tree | 5b6b8b9c23ae56250f3be59db9a69aaba4433998 /doio.c | |
| parent | f586dad45c8f76a0635bd7d076f672745853bb23 (diff) | |
| download | perl-dd37d22f759197ae537bfc89e7f0cd73321b19b3.tar.gz | |
Fix [ID 20020318.003] cannot open STDOUT into in memory variable
- when (e.g.) STDOUT is char special file and gets IoOFP
created - do _NOT_ pass num_svs as that fopen-s stringified
glob, and not fdopen-s the fd.
p4raw-id: //depot/perlio@15410
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -640,7 +640,7 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw, if (IoTYPE(io) == IoTYPE_SOCKET || (IoTYPE(io) == IoTYPE_WRONLY && fd >= 0 && S_ISCHR(PL_statbuf.st_mode)) ) { mode[0] = 'w'; - if (!(IoOFP(io) = PerlIO_openn(aTHX_ type,mode,fd,0,0,NULL,num_svs,svp))) { + if (!(IoOFP(io) = PerlIO_openn(aTHX_ type,mode,fd,0,0,NULL,0,svp))) { PerlIO_close(fp); IoIFP(io) = Nullfp; goto say_false; |