summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-09-10 04:24:23 +0000
committerOlivier Blin <oblin@mandriva.org>2004-09-10 04:24:23 +0000
commite63ab2031600512e28e96c71242a85bb6b145fbf (patch)
tree9952aec6437344cb2d8ae86fd683ecb9bd04a3aa /perl-install/network
parent9193eecc5903c49ba45484a4523134526879d1ec (diff)
downloaddrakx-backup-do-not-use-e63ab2031600512e28e96c71242a85bb6b145fbf.tar
drakx-backup-do-not-use-e63ab2031600512e28e96c71242a85bb6b145fbf.tar.gz
drakx-backup-do-not-use-e63ab2031600512e28e96c71242a85bb6b145fbf.tar.bz2
drakx-backup-do-not-use-e63ab2031600512e28e96c71242a85bb6b145fbf.tar.xz
drakx-backup-do-not-use-e63ab2031600512e28e96c71242a85bb6b145fbf.zip
fix stupid things
Diffstat (limited to 'perl-install/network')
-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};
}