From: Ben Morrow <ben@morrow.me.uk>
Date: Tue, 17 Mar 2009 18:21:52 +0000 (+0000)
Subject: IO refs always stringify for -t, -T and -B.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=52f7f5abcb0b97e194579f0fe825799e03a82966;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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");