diff options
Diffstat (limited to 'perl-install/network/tools.pm')
| -rw-r--r-- | perl-install/network/tools.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index 3ee47d864..8671b8b62 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -127,10 +127,9 @@ sub connected_bg { if (defined($a = <F>)) { close($kid_pipe) || warn "kid exited $?"; undef $kid_pipe; - print STDERR "debug - hostname result : $a\n"; $$ref = $a; } - } else { $kid_pipe = connected2() } + } else { $kid_pipe = connected2(); } 1; } @@ -140,6 +139,7 @@ sub connected2 { return \*KID_TO_READ; } else { # child my $a = gethostbyname("mandrakesoft.com") ? 1 : 0; + print $a; c::_exit(0); } } |