scripts/mosh: Allow IO::Socket::INET6 as an alternative to IO::Socket::IP

Some systems have IO::Socket::INET6 preinstalled, so we might as well
accept either.

Signed-off-by: Anders Kaseorg <andersk@mit.edu>

1 files changed, 4 insertions, 1 deletions

diff --git a/scripts/mosh.pl b/scripts/mosh.pl
index 6a3aea6..8c19138 100755
--- a/scripts/mosh.pl
+++ b/scripts/mosh.pl
@@ -172,7 +172,10 @@ if ( not defined $bind_ip or $bind_ip =~ m{^ssh$}i ) {
 
 if ( defined $fake_proxy ) {
   use Errno qw(EINTR);
-  BEGIN { eval { require IO::Socket::IP; IO::Socket::IP->import('-register'); }; }
+  BEGIN {
+    eval { require IO::Socket::IP; IO::Socket::IP->import('-register'); 1 } or
+      eval { require IO::Socket::INET6 };
+  }
   use POSIX qw(_exit);
 
   my ( $host, $port ) = @ARGV;