Remove spurious TODO indicators

By definition, the first test in a series for testing a
leak should always succeed

diff --git a/t/io/perlio_leaks.t b/t/io/perlio_leaks.t
index ad76c39..7bd0346 100644 (file)
--- a/t/io/perlio_leaks.t
+++ b/t/io/perlio_leaks.t
@@ -11,11 +11,11 @@ use Test::More 'no_plan';
 # :crlf   -> ok
 
 TODO: {
-    local $TODO = "[perl #56644] PerlIO resource leaks on open() and then :pop in :unix and :stdio";
     foreach my $layer(qw(:unix :stdio  :perlio :crlf)){
         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 $!;
 
                 is fileno($fh), $base_fd, $layer;