Remove dubious test.

p4raw-id: //depot/perl@14717

1 files changed, 0 insertions, 38 deletions

diff --git a/t/io/open.t b/t/io/open.t
index a0f703b0e7..f49ba10c49 100755
--- a/t/io/open.t
+++ b/t/io/open.t
@@ -229,41 +229,3 @@ like( $@, qr/Bad filehandle:\s+afile/,          '       right error' );
     is( scalar <$x>, "ok\n",    '       readline' );
     ok( tell($x) >= 3,          '       tell' );
 }
-
-# this used to leak FILE* pointers on all platforms (and also died on
-# Windows after running a few hundred times)
-
-my $devnull = File::Spec->devnull;
-{
-    my $loopcount;
-
-    $loopcount = 0;
-    while ($loopcount++ < 555) {
-       open NEWOUT, ">$devnull" or die;
-       open SAVEOUT, ">&STDOUT" or die;
-       open STDOUT, ">&=" . fileno(NEWOUT) or die;
-       open STDOUT, ">&SAVEOUT" or die;
-       close NEWOUT;
-    }
-    ok;
-
-    $loopcount = 0;
-    while ($loopcount++ < 555) {
-       open NEWOUT, ">$devnull" or die;
-       open SAVEOUT, ">&STDOUT" or die;
-       open STDOUT, ">&=NEWOUT" or die;
-       open STDOUT, ">&SAVEOUT" or die;
-       close NEWOUT;
-    }
-    ok;
-
-    $loopcount = 0;
-    while ($loopcount++ < 555) {
-       open NEWOUT, ">$devnull" or die;
-       open SAVEOUT, ">&STDOUT" or die;
-       open STDOUT, ">&NEWOUT" or die;
-       open STDOUT, ">&SAVEOUT" or die;
-       close NEWOUT;
-    }
-    ok;
-}