From: Casey Tweten <crt@kiski.net>
Date: Mon, 20 Nov 2000 11:53:03 +0000 (-0500)
Subject: [ID 20001120.003] [PATCH] io_udp.t fails without 'localhost'
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dbfe7cc2a5ad8f3116eaed7c2bd1724b157d2a2f;p=p5sagit%2Fp5-mst-13.2.git

[ID 20001120.003] [PATCH] io_udp.t fails without 'localhost'
Message-Id: <200011201653.LAA10194@home.kiski.net>

p4raw-id: //depot/perl@7808
---

diff --git a/t/lib/io_udp.t b/t/lib/io_udp.t
index 9df62cf..d63a5dc 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";