diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/tools.pm | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index 4fdab586a..f99ad48e7 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -118,13 +118,11 @@ my $kid_pipe; sub connected_bg { my ($ref) = @_; if (defined $kid_pipe) { - print "GGGGGGGGG\n"; local *F; *F = *$kid_pipe; fcntl(F, F_SETFL, O_NONBLOCK) or die "can't fcntl F_SETFL: $!"; my $a; if ($a = <F> ) { - print "gooood\n"; chomp $a; close($kid_pipe) || warn "kid exited $?"; undef $kid_pipe; @@ -132,7 +130,6 @@ sub connected_bg { $a eq '0' and $$ref = 0; } } else { - print "BBBBBBBBB\n"; $kid_pipe = connected2(); } 1; @@ -145,7 +142,6 @@ sub connected2 { } else { # child ($EUID, $EGID) = ($UID, $GID); # suid only my $a = gethostbyname("mandrakesoft.com") ? 1 : 0; - print "$a\n"; c::_exit(0); } } |