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/tools.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/network/tools.pm')

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