From 54336883646301ad401b65c13777f67fa4e26d97 Mon Sep 17 00:00:00 2001 From: Anders Kaseorg Date: Thu, 26 Oct 2017 19:40:56 -0400 Subject: [PATCH] mosh.pl: Fix the error message if getaddrinfo is missing Signed-off-by: Anders Kaseorg --- scripts/mosh.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/scripts/mosh.pl b/scripts/mosh.pl index ab682a9..bd04565 100755 --- a/scripts/mosh.pl +++ b/scripts/mosh.pl @@ -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"; }