Upgrade to IO 1.22 from gbarr

[p5sagit/p5-mst-13.2.git] / ext / IO / t / io_sock.t

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