summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network')
-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);
}
}