This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove needless skip tests from lib/File/stat.t
[perl5.git] / lib / File / stat.t
index b5157b8..c3ecc09 100644 (file)
@@ -27,14 +27,6 @@ BEGIN {
         $file = readlink $file;
         die "Can't readlink(../lib/File/stat.t): $!" if ! defined $file;
     }
-
-    our $hasst;
-    eval { my @n = stat $file };
-    $hasst = 1 unless $@ && $@ =~ /unimplemented/;
-    unless ($hasst) { plan skip_all => "no stat"; exit 0 }
-    use Config;
-    $hasst = 0 unless $Config{'i_sysstat'} eq 'define';
-    unless ($hasst) { plan skip_all => "no sys/stat.h"; exit 0 }
 }
 
 # Originally this was done in the BEGIN block, but perl is still