X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Ffh.t;h=86e405a992a34caf80a5314f3714a9ef54381565;hb=95e8664e86da93255f26600f44bbbd70bf5b5b0e;hp=469aa0ed1c5e964e71ef384b94fb0107ce8f9607;hpb=648cac195c82cb1f1b31f3751c1a36107e153a68;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/fh.t b/t/op/fh.t
index 469aa0e..86e405a 100755
--- a/t/op/fh.t
+++ b/t/op/fh.t
@@ -12,9 +12,10 @@ print "not " if defined(fileno($a)) or defined *{$a};
 ++$test; print "ok $test\n";
 
 select select $a;
-print "not " if defined *{$a};
+print "not " unless defined *{$a};
 ++$test; print "ok $test\n";
 
+$a++;
 print "not " if close $a or defined *{$a};
 ++$test; print "ok $test\n";