use Config;
use File::Spec;
-plan tests => 86;
+plan tests => 88;
my $Perl = which_perl();
unlink $tmpfile;
}
+SKIP: {
+ skip "No dirfd()", 2 unless $Config{d_dirfd};
+ opendir my $dir, "." or die 'Unable to opendir ".": $!';
+ ok(stat($dir), "stat() on dirhandle works");
+ ok(-d -r _ , "chained -x's on dirhandle");
+}
+
END {
1 while unlink $tmpfile;
}