summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/test.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/network/test.pm b/perl-install/network/test.pm
index f7db0f87e..7c25fce05 100644
--- a/perl-install/network/test.pm
+++ b/perl-install/network/test.pm
@@ -81,9 +81,9 @@ sub resolve_and_ping {
} else {
$p = Net::Ping->new('icmp');
}
- $p->Net::Ping::hires; #- get ping as float
+ $p->hires; #- get ping as float
#- default timeout is 5 seconds
- my ($ret, $ping, $address) = $p->Net::Ping::ping($hostname, 5);
+ my ($ret, $ping, $address) = $p->ping($hostname, 5);
if ($ret) {
return $address, $ping;
} elsif (defined($ret)) {
@@ -98,7 +98,7 @@ sub update_status {
fcntl($fd, c::F_SETFL(), c::O_NONBLOCK()) or die "can't fcntl F_SETFL: $!";
local $| = 1;
if (defined(my $output = <$fd>)) {
- ($o->{address}, $o->{ping}) = $output =~ /^([\d\.]+)\|([\d\.\,]+)*$/;
+ ($o->{address}, $o->{ping}) = $output =~ /^([\d\.]+)\|([\d\.,]+)*$/;
$o->{done} = 1;
undef $o->{kid};
}