This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
dist/IO: Always bind to localhost in tests.
[perl5.git] / dist / IO / t / io_multihomed.t
index f1bd5b9..f2a8e11 100644 (file)
@@ -74,7 +74,8 @@ package main;
 
 use IO::Socket;
 
 
 use IO::Socket;
 
-$listen = IO::Socket::INET->new(Listen => 2,
+$listen = IO::Socket::INET->new(LocalAddr => 'localhost',
+                               Listen => 2,
                                Proto => 'tcp',
                                Timeout => 5,
                               ) or die "$!";
                                Proto => 'tcp',
                                Timeout => 5,
                               ) or die "$!";