This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix missing skip counts in PathTools' cwd.t
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Wed, 25 Oct 2017 10:24:52 +0000 (11:24 +0100)
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Wed, 25 Oct 2017 10:25:51 +0000 (11:25 +0100)
dist/PathTools/t/cwd.t

index 57fd866..8cf3586 100644 (file)
@@ -248,8 +248,8 @@ SKIP: {
 
 SKIP: {
   my $dir = "${$}a\nx";
-  mkdir $dir or skip "OS does not support dir names containing LF";
-  chdir $dir or skip "OS cannot chdir into LF";
+  mkdir $dir or skip "OS does not support dir names containing LF", 1;
+  chdir $dir or skip "OS cannot chdir into LF", 1;
   eval { Cwd::fast_abs_path() };
   is $@, "", 'fast_abs_path does not die in dir whose name contains LF';
   chdir File::Spec->updir;