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 /t/op | |
| 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
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/misc.t | 10 |
1 files changed, 10 insertions, 0 deletions
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 +######## |