summaryrefslogtreecommitdiffstats
path: root/perl-install/network/tools.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2002-01-28 15:19:15 +0000
committerdamien <damien@mandriva.com>2002-01-28 15:19:15 +0000
commita653f3a6eb456600d3ca93c770cc75ea70bf2569 (patch)
tree2923708fd78adfcbe97043d34c20b39231370cfc /perl-install/network/tools.pm
parentd7a9db1272e94fd69057f14c037378bcdd55380f (diff)
downloaddrakx-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.pm4
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);
}
}