diff options
Diffstat (limited to 't/lib/io_udp.t')
| -rwxr-xr-x | t/lib/io_udp.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/t/lib/io_udp.t b/t/lib/io_udp.t index 84e5067b85..e85583fdb3 100755 --- 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"; |