lstat FH and -l FH warnings

[perl5.git] / t / op / stat.t

diff --git a/t/op/stat.t b/t/op/stat.t
index 6bb3315..312dd1d 100755 (executable)
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -9,7 +9,7 @@ BEGIN {
 use Config;
 use File::Spec;
 
-plan tests => 75;
+plan tests => 73;
 
 my $Perl = which_perl();
 
@@ -390,13 +390,6 @@ SKIP: {
     like( $@, qr/^The stat preceding -l _ wasn't an lstat/,
        '-l _ croaks after stat' );
 
-    eval { lstat STDIN };
-    like( $@, qr/^You can't use lstat\(\) on a filehandle/,
-       'lstat FILEHANDLE croaks' );
-    eval { -l STDIN };
-    like( $@, qr/^You can't use -l on a filehandle/,
-       '-l FILEHANDLE croaks' );
-
     # bug id 20020124.004
     # If we have d_lstat, we should have symlink()
     my $linkname = 'dolzero';