diff options
| author | Roderick Schertler <roderick@argon.org> | 1997-12-19 07:52:36 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-02 01:45:55 +0000 |
| commit | 3500f6799fed8479a1efcf408255735921bd3f48 (patch) | |
| tree | aea22143e574abae666969f64399ee6ad4585256 | |
| parent | ded42b9f771444bf991e51e9d91e40238f0181e2 (diff) | |
| download | perl-3500f6799fed8479a1efcf408255735921bd3f48.tar.gz | |
[win32] another 'old' patch
Message-Id: <pzg1npp6e3.fsf@eeyore.ibcinc.com>
Subject: [PERL] [PATCH] Re: Problem with open >&=
p4raw-id: //depot/win32/perl@610
| -rw-r--r-- | doio.c | 6 | ||||
| -rwxr-xr-x | t/op/misc.t | 10 |
2 files changed, 15 insertions, 1 deletions
@@ -92,6 +92,7 @@ do_open(GV *gv, register char *name, I32 len, int as_raw, int rawmode, int rawpe PerlIO *fp; int fd; int result; + bool was_fdopen = FALSE; forkprocess = 1; /* assume true if no fork */ @@ -221,6 +222,8 @@ do_open(GV *gv, register char *name, I32 len, int as_raw, int rawmode, int rawpe } if (dodup) fd = PerlLIO_dup(fd); + else + was_fdopen = TRUE; if (!(fp = PerlIO_fdopen(fd,mode))) { if (dodup) PerlLIO_close(fd); @@ -330,7 +333,8 @@ do_open(GV *gv, register char *name, I32 len, int as_raw, int rawmode, int rawpe sv = *av_fetch(fdpid,fd,TRUE); (void)SvUPGRADE(sv, SVt_IV); SvIVX(sv) = pid; - PerlIO_close(fp); + if (!was_fdopen) + PerlIO_close(fp); } fp = saveifp; diff --git a/t/op/misc.t b/t/op/misc.t index 1ca45db039..40c9c38825 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -358,3 +358,13 @@ init <b> end <c> argv <> ######## +-l +# fdopen from a system descriptor to a system descriptor used to close +# the former. +open STDERR, '>&=STDOUT' or die $!; +select STDOUT; $| = 1; print fileno STDOUT; +select STDERR; $| = 1; print fileno STDERR; +EXPECT +1 +2 +######## |