diff options
| -rwxr-xr-x | t/io/open.t | 38 |
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; -} |