This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix skip count for non-fchdir like win32.
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 4 Jul 2015 00:21:47 +0000 (20:21 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 4 Jul 2015 00:21:47 +0000 (20:21 -0400)
t/op/chdir.t

index f58d440..3a88f82 100644 (file)
@@ -54,7 +54,7 @@ SKIP: {
 $Cwd = abs_path;
 
 SKIP: {
-    skip("no fchdir", 21) unless $has_fchdir;
+    skip("no fchdir", 23) unless $has_fchdir;
     my $has_dirfd = ($Config{d_dirfd} || $Config{d_dir_dd_fd} || "") eq "define";
     ok(opendir(my $dh, "."), "opendir .");
     ok(open(my $fh, "<", "op"), "open op");