diff options
| author | damien <damien@mandriva.com> | 2001-10-18 19:04:32 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-10-18 19:04:32 +0000 |
| commit | 5e0a50de40764a52f5c6f48d1951f88cc5c90d84 (patch) | |
| tree | 248208e314c5336ffeb91f5b66f9794fc3c70194 /perl-install/network | |
| parent | 7d70ab070711e500a44615a320e5ba883a89d063 (diff) | |
| download | drakx-5e0a50de40764a52f5c6f48d1951f88cc5c90d84.tar drakx-5e0a50de40764a52f5c6f48d1951f88cc5c90d84.tar.gz drakx-5e0a50de40764a52f5c6f48d1951f88cc5c90d84.tar.bz2 drakx-5e0a50de40764a52f5c6f48d1951f88cc5c90d84.tar.xz drakx-5e0a50de40764a52f5c6f48d1951f88cc5c90d84.zip | |
corrected GET_FL and co
Diffstat (limited to 'perl-install/network')
| -rw-r--r-- | perl-install/network/tools.pm | 2 |
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 $?"; |