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 | |
| parent | d7a9db1272e94fd69057f14c037378bcdd55380f (diff) | |
| download | drakx-a653f3a6eb456600d3ca93c770cc75ea70bf2569.tar drakx-a653f3a6eb456600d3ca93c770cc75ea70bf2569.tar.gz drakx-a653f3a6eb456600d3ca93c770cc75ea70bf2569.tar.bz2 drakx-a653f3a6eb456600d3ca93c770cc75ea70bf2569.tar.xz drakx-a653f3a6eb456600d3ca93c770cc75ea70bf2569.zip | |
debug network testing
| -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); } } |