IO refs always stringify for -t, -T and -B.
authorBen Morrow <ben@morrow.me.uk>
Tue, 17 Mar 2009 18:21:52 +0000 (18:21 +0000)
committerBen Morrow <ben@morrow.me.uk>
Wed, 25 Mar 2009 21:14:10 +0000 (21:14 +0000)
t/op/filetest.t

index 59ed0be..b025b48 100755 (executable)
@@ -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");