tweak select() test

p4raw-id: //depot/perl@2915

diff --git a/pod/perlipc.pod b/pod/perlipc.pod
index c74c520..2f99d10 100644 (file)
--- a/pod/perlipc.pod
+++ b/pod/perlipc.pod
@@ -1191,7 +1191,7 @@ you'll have to use the C<sysread> variant of the interactive client above.
 This server accepts one of five different commands, sending output
 back to the client.  Note that unlike most network servers, this one
 only handles one incoming client at a time.  Multithreaded servers are
-covered in Chapter 6 of the Camel as well as later in this manpage.
+covered in Chapter 6 of the Camel.
 
 Here's the code.  We'll
 

diff --git a/t/op/fh.t b/t/op/fh.t
index 469aa0e..86e405a 100755 (executable)
--- 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";