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

mosh.pl: Fix the error message if getaddrinfo is missing

Browse Source 
Signed-off-by: Anders Kaseorg <andersk@mit.edu>
This commit is contained in:
Anders Kaseorg
2017-10-26 19:40:56 -04:00
parent 195ef46561
commit 5433688364
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scripts/mosh.pl
+3 -2
View File
@@ -44,8 +44,9 @@ use POSIX qw(_exit);
BEGIN {
my @gai_reqs = qw( getaddrinfo getnameinfo AI_CANONNAME AI_NUMERICHOST NI_NUMERICHOST );
eval { Socket->import( @gai_reqs ); 1; }
|| eval { require Socket::GetAddrInfo; Socket::GetAddrInfo->import( ':newapi', @gai_reqs ); 1; }
|| eval { Socket::GetAddrInfo->import( '0.22', @gai_reqs ); 1; }
|| (eval { require Socket::GetAddrInfo; 1; }
&& (eval { Socket::GetAddrInfo->import( ':newapi', @gai_reqs ); 1; }
|| eval { Socket::GetAddrInfo->import( '0.22', @gai_reqs ); 1; }))
|| die "$0 error: requires Perl 5.14 or Socket::GetAddrInfo.\n";
}