IO refs always stringify for -t, -T and -B.

diff --git a/t/op/filetest.t b/t/op/filetest.t
index 59ed0be..b025b48 100755 (executable)
--- a/t/op/filetest.t
+++ b/t/op/filetest.t
@@ -164,6 +164,10 @@ for my $op (split //, "rwxoRWXOezsfdlpSbctugkTMBAC") {
     eval "-$op \$gv";
     is( $over,      $exp,   "string overload $is called for -$op on GLOB" );
 
+    # IO refs always get string overload called. This might be a bug.
+    $op eq "t" || $op eq "T" || $op eq "B"
+        and ($exp, $is) = (1, "is");
+
     $over = 0;
     eval "-$op \$io";
     is( $over,      $exp,   "string overload $is called for -$op on IO");