[shell changes from patch from perl5.003_12 to perl5.003_13]

[p5sagit/p5-mst-13.2.git] / t / lib / io_udp.t

diff --git a/t/lib/io_udp.t b/t/lib/io_udp.t
index 84e5067..e85583f 100755 (executable)
--- a/t/lib/io_udp.t
+++ b/t/lib/io_udp.t
@@ -5,7 +5,8 @@ BEGIN {
     @INC = '../lib' if -d '../lib';
     require Config; import Config;
     if ( ($Config{'extensions'} !~ /\bSocket\b/ ||
-          $Config{'extensions'} !~ /\bIO\b/)    &&
+          $Config{'extensions'} !~ /\bIO\b/    ||
+         $^O eq 'os2')    &&
           !(($^O eq 'VMS') && $Config{d_socket})) {
        print "1..0\n";
        exit 0;
@@ -18,8 +19,8 @@ print "1..3\n";
 use Socket;
 use IO::Socket qw(AF_INET SOCK_DGRAM INADDR_ANY);
 
-$udpa = IO::Socket::INET->new(Proto => 'udp', Addr => 'localhost');
-$udpb = IO::Socket::INET->new(Proto => 'udp', Addr => 'localhost');
+$udpa = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost');
+$udpb = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost');
 
 print "ok 1\n";