From a7d95e8e64458c3676a3bffafcc57833e74b876b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 10 Nov 2002 12:42:33 +0000
Subject: don't return a typeglob ref, return the typeglob (reference to
 typeglobs are soft references which doesn't increment the ref count) (thanks
 to Gerard Patel for the precise bug report)

---
 perl-install/network/tools.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 6929a7630..108cfee83 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -211,7 +211,7 @@ sub connected2 {
     my $pid = open(KID_TO_READ, "-|");
     if ($pid) {   # parent
 	$kid_pid = $pid;
-	return \*KID_TO_READ;
+	return *KID_TO_READ;
     } else {      # child
 	my $a = gethostbyname("mandrakesoft.com") ? 1 : 0;
 	print $a;
-- 
cgit v1.2.1