summaryrefslogtreecommitdiffstats
path: root/perl-install/network/test.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-12-13 15:56:00 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-12-13 15:56:00 +0000
commit4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25 (patch)
treea12104a3a9468cc42b83634feb5e6a2e72003532 /perl-install/network/test.pm
parentf298cec9f7d4bb4dc1972cc737007b6da86d4cb0 (diff)
downloaddrakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar
drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar.gz
drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar.bz2
drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar.xz
drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.zip
better english (writing style rather than spoken one)
Diffstat (limited to 'perl-install/network/test.pm')
-rw-r--r--perl-install/network/test.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/network/test.pm b/perl-install/network/test.pm
index 7c25fce05..cc043b19c 100644
--- a/perl-install/network/test.pm
+++ b/perl-install/network/test.pm
@@ -19,7 +19,7 @@ sub test_synchronous {
$o->{done} = 1;
}
-#- launch asynchronous test, won't hang
+#- launch asynchronous test, will not hang
sub start {
my ($o) = @_;
$o->{done} = 0;
@@ -95,7 +95,7 @@ sub update_status {
my ($o) = @_;
if ($o->{kid}) {
my $fd = $o->{kid}{fd};
- fcntl($fd, c::F_SETFL(), c::O_NONBLOCK()) or die "can't fcntl F_SETFL: $!";
+ fcntl($fd, c::F_SETFL(), c::O_NONBLOCK()) or die "can not fcntl F_SETFL: $!";
local $| = 1;
if (defined(my $output = <$fd>)) {
($o->{address}, $o->{ping}) = $output =~ /^([\d\.]+)\|([\d\.,]+)*$/;