This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip the right number of tests in DosGlob.t.
[perl5.git] / lib / File / DosGlob.t
index f942272..9227cb9 100644 (file)
@@ -101,7 +101,7 @@ is("@r", "@s", 'global override');
 # NB. The spaces in the glob patterns need to be backslash escaped.
 my $filename_containing_parens = "foo (123) bar";
 SKIP: {
-    skip("can't create '$filename_containing_parens': $!", 12)
+    skip("can't create '$filename_containing_parens': $!", 9)
        unless open my $touch, ">", $filename_containing_parens;
     close $touch;