include ::1 in localhost check in get_active_server
This commit is contained in:
committed by
Dietmar Maurer
parent
f8b0d82fe6
commit
6564419625
@ -37,7 +37,7 @@ my $get_active_server = sub {
|
|||||||
foreach my $server (@$serverlist) {
|
foreach my $server (@$serverlist) {
|
||||||
my $status = 0;
|
my $status = 0;
|
||||||
|
|
||||||
if ($server && $server ne 'localhost' && $server ne '127.0.0.1') {
|
if ($server && $server ne 'localhost' && $server ne '127.0.0.1' && $server ne '::1') {
|
||||||
|
|
||||||
my $p = Net::Ping->new("tcp", 2);
|
my $p = Net::Ping->new("tcp", 2);
|
||||||
$status = $p->ping($server);
|
$status = $p->ping($server);
|
||||||
|
|||||||
Reference in New Issue
Block a user