From 5e0a50de40764a52f5c6f48d1951f88cc5c90d84 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Thu, 18 Oct 2001 19:04:32 +0000
Subject: corrected GET_FL and co

---
 perl-install/network/tools.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/network')

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 $?";
-- 
cgit v1.2.1