diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 09:31:34 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 09:31:34 +0000 |
| commit | 9b599b2a63d2324ddacddd9710c41b795a95070d (patch) | |
| tree | 4180f11ca1ddccb984799ab74df847e9f64f1213 /t/lib/io_udp.t | |
| parent | 491527d0220de34ec13035d557e288c9952d1007 (diff) | |
| download | perl-9b599b2a63d2324ddacddd9710c41b795a95070d.tar.gz | |
[win32] merge change#887 from maintbranch
p4raw-link: @887 on //depot/maint-5.004/perl: 6cdf74fe31f049dc2164dbb9e6242179d4b8ee1f
p4raw-id: //depot/win32/perl@937
Diffstat (limited to 't/lib/io_udp.t')
| -rwxr-xr-x | t/lib/io_udp.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/t/lib/io_udp.t b/t/lib/io_udp.t index 3e16714118..014e12dc58 100755 --- a/t/lib/io_udp.t +++ b/t/lib/io_udp.t @@ -30,9 +30,13 @@ use IO::Socket qw(AF_INET SOCK_DGRAM INADDR_ANY); # This can fail if localhost is undefined or the # special 'loopback' address 127.0.0.1 is not configured # on your system. (/etc/rc.config.d/netconfig on HP-UX.) + # As a shortcut (not recommended) you could change 'localhost' + # here to be the name of this machine eg 'myhost.mycompany.com'. -$udpa = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost'); -$udpb = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost'); +$udpa = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost') + or die "$! (maybe your system does not have the 'localhost' address defined)"; +$udpb = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost') + or die "$! (maybe your system does not have the 'localhost' address defined)"; print "ok 1\n"; |