diff options
author | David Mitchell <davem@iabyn.com> | 2009-04-25 20:32:26 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2009-04-25 20:32:26 +0100 |
commit | 776e8d8cea880879e15d2d0c73339d813c597ca3 (patch) | |
tree | dc984ad3bc865a13406ea0c8fb5020690343d768 /t/io | |
parent | 8fd7046754c1f3033a465cd79ec21bca7bad53de (diff) | |
download | perl-776e8d8cea880879e15d2d0c73339d813c597ca3.tar.gz |
[perl #56644] TODO was too severe. Only :unix :stdio were failing
Diffstat (limited to 't/io')
-rw-r--r-- | t/io/perlio_leaks.t | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/t/io/perlio_leaks.t b/t/io/perlio_leaks.t index 7bd034658a..6bb6369e55 100644 --- a/t/io/perlio_leaks.t +++ b/t/io/perlio_leaks.t @@ -15,11 +15,14 @@ TODO: { my $base_fd = do{ open my $in, '<', $0 or die $!; fileno $in }; for(1 .. 3){ - local $TODO = "[perl #56644] PerlIO resource leaks on open() and then :pop in :unix and :stdio" if $_ > 1; - open my $fh, "<$layer", $0 or die $!; + local $TODO; + if ($_ > 1 && $layer =~ /^:(unix|stdio)$/) { + $TODO = "[perl #56644] PerlIO resource leaks on open() and then :pop in :unix and :stdio" + } + open my $fh, "<$layer", $0 or die $!; - is fileno($fh), $base_fd, $layer; - binmode $fh, ':pop'; + is fileno($fh), $base_fd, $layer; + binmode $fh, ':pop'; } } } |