diff options
| -rw-r--r-- | perl-install/network/netconnect.pm | 2 | ||||
| -rw-r--r-- | perl-install/network/tools.pm | 4 |
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); } } |