[rt #111640] warn on the right -X operators used on a File::stat object

[perl5.git] / lib / File / stat.t

diff --git a/lib/File/stat.t b/lib/File/stat.t
index 74bf5fb..32a7481 100644 (file)
--- a/lib/File/stat.t
+++ b/lib/File/stat.t
@@ -142,7 +142,6 @@ SKIP: {
     use filetest "access";
     use warnings;
     for my $op (split //, "rwxRXW") {
-       local $TODO = $op eq "r" ? "RT 111640" : "";
        # these should all warn with filetest access
        my $w;
        local $SIG{__WARN__} = sub { $w = shift };
@@ -152,7 +151,6 @@ SKIP: {
     }
 
     {
-       local $TODO = "RT 111640";
        # -d and others shouldn't warn
        my $w;
        local $SIG{__WARN__} = sub { $w = shift };