summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/tools.pm35
1 files changed, 15 insertions, 20 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 4d84c4baa..0c65bb854 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -143,11 +143,9 @@ sub connected_bg {
local $| = 1;
my ($ref) = @_;
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($kid_pipe, c::F_SETFL(), c::O_NONBLOCK()) or die "can't fcntl F_SETFL: $!";
my $a;
- if (defined($a = <F>)) {
+ if (defined($a = <$kid_pipe>)) {
close($kid_pipe) || warn "kid exited $?";
undef $kid_pipe;
$$ref = $a;
@@ -176,16 +174,14 @@ sub test_connected {
if ($cmd == 0) {
if (defined $kid_pipe_connect) {
- local *F;
- *F = *$kid_pipe_connect;
- fcntl(F, c::F_SETFL(), c::O_NONBLOCK()) or die "can't fcntl F_SETFL: $!";
- my $a;
- if (defined($a = <F>)) {
- close($kid_pipe_connect) || warn "kid exited $?";
- undef $kid_pipe_connect;
- undef $kid_pid;
- $current_connection_status = $a;
- }
+ fcntl($kid_pipe_connect, c::F_SETFL(), c::O_NONBLOCK()) or die "can't fcntl F_SETFL: $!";
+ my $a;
+ if (defined($a = <$kid_pipe_connect>)) {
+ close($kid_pipe_connect) || warn "kid exited $?";
+ undef $kid_pipe_connect;
+ undef $kid_pid;
+ $current_connection_status = $a;
+ }
}
return $current_connection_status;
}
@@ -206,12 +202,11 @@ sub test_connected {
}
sub connected2 {
- local *KID_TO_READ;
- my $pid = open(KID_TO_READ, "-|");
- if ($pid) { # parent
- $kid_pid = $pid;
- return *KID_TO_READ;
- } else { # child
+ if ($kid_pid = open(my $kid_to_read, "-|")) {
+ #- parent
+ $kid_to_read;
+ } else {
+ #- child
my $a = gethostbyname("mandrakesoft.com") ? 1 : 0;
print $a;
c::_exit(0);