summaryrefslogtreecommitdiffstats
path: root/perl-install
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
parentd7a9db1272e94fd69057f14c037378bcdd55380f (diff)
downloaddrakx-a653f3a6eb456600d3ca93c770cc75ea70bf2569.tar
drakx-a653f3a6eb456600d3ca93c770cc75ea70bf2569.tar.gz
drakx-a653f3a6eb456600d3ca93c770cc75ea70bf2569.tar.bz2
drakx-a653f3a6eb456600d3ca93c770cc75ea70bf2569.tar.xz
drakx-a653f3a6eb456600d3ca93c770cc75ea70bf2569.zip
debug network testing
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm2
-rw-r--r--perl-install/network/tools.pm4
2 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index c5ecbbbdf..5f95a901f 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -3,7 +3,7 @@ package network::netconnect;
use diagnostics;
use strict;
-use vars qw($isdn_init @isdndata);
+use vars qw($isdn_init @isdndata @EXPORT);
use common;
use log;
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);
}
}