From: Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Date: Wed, 25 Oct 2017 10:24:52 +0000 (+0100)
Subject: Fix missing skip counts in PathTools' cwd.t
X-Git-Tag: v5.27.6~259
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/0cdc775ef423ad6415e6f80b9244c17a52bf5149?hp=8c91ebab27b4f4b751019d9af4256121c08a67ed

Fix missing skip counts in PathTools' cwd.t
---

diff --git a/dist/PathTools/t/cwd.t b/dist/PathTools/t/cwd.t
index 57fd866..8cf3586 100644
--- a/dist/PathTools/t/cwd.t
+++ b/dist/PathTools/t/cwd.t
@@ -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;