Remove dubious test.
authorAbhijit Menon-Sen <ams@wiw.org>
Sat, 16 Feb 2002 04:30:23 +0000 (04:30 +0000)
committerAbhijit Menon-Sen <ams@wiw.org>
Sat, 16 Feb 2002 04:30:23 +0000 (04:30 +0000)
p4raw-id: //depot/perl@14717

t/io/open.t

index a0f703b..f49ba10 100755 (executable)
@@ -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;
-}