[perl.git] branch blead, updated. v5.27.0-264-g2a794dcfb0

[Craig A. Berry]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/2a794dcfb0cb865c8a1f250b7019bc99bfeb5bb2?hp=7b3443d31f11c15859593e5b710c301795a6de01>

- Log -----------------------------------------------------------------
commit 2a794dcfb0cb865c8a1f250b7019bc99bfeb5bb2
Author: Craig A. Berry <craigbe...@mac.com>
Date:   Thu Jun 8 08:53:48 2017 -0500

    Update test skips for no fchdir.
    
    Follow-up to 489c16bfa14d46.  There are fewer tests now, so skip
    fewer when skipping is necessary.
-----------------------------------------------------------------------

Summary of changes:
 t/op/chdir.t | 2 +-
 t/op/stat.t  | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/t/op/chdir.t b/t/op/chdir.t
index 0ce83d0673..b9df30d40a 100644
--- a/t/op/chdir.t
+++ b/t/op/chdir.t
@@ -55,7 +55,7 @@ SKIP: {
 $Cwd = abs_path;
 
 SKIP: {
-    skip("no fchdir", 23) unless $has_fchdir;
+    skip("no fchdir", 19) 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");
diff --git a/t/op/stat.t b/t/op/stat.t
index a5bb018f62..48b659b2e1 100644
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -556,7 +556,7 @@ SKIP: {
 }
 
 SKIP: {
-    skip "No dirfd()", 9 unless $Config{d_dirfd} || $Config{d_dir_dd_fd};
+    skip "No dirfd()", 4 unless $Config{d_dirfd} || $Config{d_dir_dd_fd};
     ok(opendir(DIR, "."), 'Can open "." dir') || diag "Can't open '.':  $!";
     ok(stat(DIR), "stat() on dirhandle works"); 
     ok(-d -r _ , "chained -x's on dirhandle"); 
@@ -576,7 +576,7 @@ SKIP: {
     #PVIO's hold dirhandle information, so let's test them too.
 
     SKIP: {
-        skip "No dirfd()", 9 unless $Config{d_dirfd} || $Config{d_dir_dd_fd};
+        skip "No dirfd()", 4 unless $Config{d_dirfd} || $Config{d_dir_dd_fd};
         ok(opendir(DIR, "."), 'Can open "." dir') || diag "Can't open '.':  
$!";
         ok(stat(*DIR{IO}), "stat() on *DIR{IO} works");
        ok(-d _ , "The special file handle _ is set correctly"); 

--
Perl5 Master Repository