Correct precedence from and to && in an expression with assignment.

p4raw-id: //depot/perl@25781

diff --git a/ext/IO/t/io_sock.t b/ext/IO/t/io_sock.t
index 918e96b..70a42e9 100755 (executable)
--- a/ext/IO/t/io_sock.t
+++ b/ext/IO/t/io_sock.t
@@ -28,7 +28,7 @@ BEGIN {
     }
 }
 
-my $has_perlio = $] >= 5.008 and find PerlIO::Layer 'perlio';
+my $has_perlio = $] >= 5.008 && find PerlIO::Layer 'perlio';
 
 $| = 1;
 print "1..26\n";