From 3500f6799fed8479a1efcf408255735921bd3f48 Mon Sep 17 00:00:00 2001
From: Roderick Schertler <roderick@argon.org>
Date: Fri, 19 Dec 1997 07:52:36 -0500
Subject: [win32] another 'old' patch 	Message-Id:
 <pzg1npp6e3.fsf@eeyore.ibcinc.com> 	Subject: [PERL] [PATCH] Re: Problem
 with open >&=

p4raw-id: //depot/win32/perl@610
---
 t/op/misc.t | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 't')

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
+########
-- 
cgit v1.2.1