This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Arguments to skip were the wrong way round, hence why all the *BSDs
[perl5.git] / t / op / readline.t
index dec3e50..d047f16 100644 (file)
@@ -64,7 +64,7 @@ my $err = $! + 0;
 close F;
 
 SKIP: {
-  skip 2 => "you can read directories as plain files" unless( $err );
+  skip "you can read directories as plain files", 2 unless( $err );
 
   $!=0;
   open F, File::Spec->curdir and $_=<F>;