diff options
author | damien <damien@mandriva.com> | 2002-01-28 15:19:15 +0000 |
---|---|---|
committer | damien <damien@mandriva.com> | 2002-01-28 15:19:15 +0000 |
commit | a653f3a6eb456600d3ca93c770cc75ea70bf2569 (patch) | |
tree | 2923708fd78adfcbe97043d34c20b39231370cfc /perl-install/network/tools.pm | |
parent | d7a9db1272e94fd69057f14c037378bcdd55380f (diff) | |
download | drakx-backup-do-not-use-a653f3a6eb456600d3ca93c770cc75ea70bf2569.tar drakx-backup-do-not-use-a653f3a6eb456600d3ca93c770cc75ea70bf2569.tar.gz drakx-backup-do-not-use-a653f3a6eb456600d3ca93c770cc75ea70bf2569.tar.bz2 drakx-backup-do-not-use-a653f3a6eb456600d3ca93c770cc75ea70bf2569.tar.xz drakx-backup-do-not-use-a653f3a6eb456600d3ca93c770cc75ea70bf2569.zip |
debug network testing
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); } } |