From a653f3a6eb456600d3ca93c770cc75ea70bf2569 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 28 Jan 2002 15:19:15 +0000
Subject: debug network testing

---
 perl-install/network/netconnect.pm | 2 +-
 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);
     }
 }
-- 
cgit v1.2.1