summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-10-18 19:04:32 +0000
committerdamien <damien@mandriva.com>2001-10-18 19:04:32 +0000
commit5e0a50de40764a52f5c6f48d1951f88cc5c90d84 (patch)
tree248208e314c5336ffeb91f5b66f9794fc3c70194 /perl-install
parent7d70ab070711e500a44615a320e5ba883a89d063 (diff)
downloaddrakx-backup-do-not-use-5e0a50de40764a52f5c6f48d1951f88cc5c90d84.tar
drakx-backup-do-not-use-5e0a50de40764a52f5c6f48d1951f88cc5c90d84.tar.gz
drakx-backup-do-not-use-5e0a50de40764a52f5c6f48d1951f88cc5c90d84.tar.bz2
drakx-backup-do-not-use-5e0a50de40764a52f5c6f48d1951f88cc5c90d84.tar.xz
drakx-backup-do-not-use-5e0a50de40764a52f5c6f48d1951f88cc5c90d84.zip
corrected GET_FL and co
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/tools.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 01afc1bfa..51e4f2086 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -122,7 +122,7 @@ sub connected_bg {
if (defined $kid_pipe) {
local *F;
*F = *$kid_pipe;
- fcntl(F, c::F_SETFL, c::O_NONBLOCK) or die "can't fcntl F_SETFL: $!";
+ fcntl(F, c::F_SETFL(), c::O_NONBLOCK()) or die "can't fcntl F_SETFL: $!";
my $a;
if ($a = <F> ) {
close($kid_pipe) || warn "kid exited $?";