This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
minitest fixes
[perl5.git] / t / io / perlio.t
index cdc4c72..0bb23fa 100644 (file)
@@ -108,7 +108,7 @@ ok(close($utffh));
 SKIP: {
     eval { require PerlIO::scalar };
     unless (find PerlIO::Layer 'scalar') {
-       skip("PerlIO::scalar not found", 8);
+       skip("PerlIO::scalar not found", 9);
     }
     my $var;
     ok( open(my $x,"+<",\$var), 'magic in-memory file via 3 arg open with \\$var');
@@ -142,7 +142,6 @@ SKIP: {
         ok( open(STDERR,">",\$var), '       open STDERR into in-memory var');
         open STDERR,  ">&OLDERR" or die "cannot dup OLDERR: $!";
     }
-}
 
 
 { local $TODO = 'fails well back into 5.8.x';
@@ -168,6 +167,8 @@ close ($perlio);
 close ($no_perlio);
 }
 
+}
+
 
 END {
     1 while unlink $txt;