izackp/mosh
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mosh.pl: Add a better error message for IPV6 & Socket::IP.

Browse Source
This commit is contained in:
John Hood
2015-05-28 22:47:34 -04:00
parent e7903f0de2
commit 9eeb2fbffa
1 changed files with 15 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scripts/mosh.pl
+15 -4
View File
@@ -172,12 +172,23 @@ if ( not defined $bind_ip or $bind_ip =~ m{^ssh$}i ) {
if ( defined $fake_proxy ) { if ( defined $fake_proxy ) {
use Errno qw(EINTR); use Errno qw(EINTR);
BEGIN { my $have_ipv6 = eval {
eval { require IO::Socket::IP; IO::Socket::IP->import('-register'); 1 } or require IO::Socket::IP;
eval { require IO::Socket::INET6 }; IO::Socket::IP->import('-register');
} 1;
} || eval {
require IO::Socket::INET6;
1;
};
use POSIX qw(_exit); use POSIX qw(_exit);
# Report failure if IPv6 needed and not available.
if (lc($family) eq "inet6") {
if (!$have_ipv6) {
die "$0: IPv6 sockets not available in this Perl install\n";
}
}
my ( $host, $port ) = @ARGV; my ( $host, $port ) = @ARGV;
# Resolve hostname and connect # Resolve hostname and connect