diff options
| author | Casey Tweten <crt@kiski.net> | 2000-11-20 06:53:03 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-22 21:13:27 +0000 |
| commit | dbfe7cc2a5ad8f3116eaed7c2bd1724b157d2a2f (patch) | |
| tree | c86d3f66209b137d7fb791634e0c612e614ea046 /t | |
| parent | 6e806fe3dd9af7dafd84ae3dee82da1e0d419f45 (diff) | |
| download | perl-dbfe7cc2a5ad8f3116eaed7c2bd1724b157d2a2f.tar.gz | |
[ID 20001120.003] [PATCH] io_udp.t fails without 'localhost'
Message-Id: <200011201653.LAA10194@home.kiski.net>
p4raw-id: //depot/perl@7808
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/io_udp.t | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/t/lib/io_udp.t b/t/lib/io_udp.t index 9df62cfbaf..d63a5dcf7b 100755 --- a/t/lib/io_udp.t +++ b/t/lib/io_udp.t @@ -57,19 +57,15 @@ print "1..7\n"; use Socket; 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') - or die "$! (maybe your system does not have the 'localhost' address defined)"; + || IO::Socket::INET->new(Proto => 'udp', LocalAddr => '127.0.0.1') + or die "$! (maybe your system does not have a localhost at all, 'localhost' or 127.0.0.1)"; print "ok 1\n"; $udpb = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost') - or die "$! (maybe your system does not have the 'localhost' address defined)"; + || IO::Socket::INET->new(Proto => 'udp', LocalAddr => '127.0.0.1') + or die "$! (maybe your system does not have a localhost at all, 'localhost' or 127.0.0.1)"; print "ok 2\n"; |