summaryrefslogtreecommitdiffstats
path: root/perl-install/network/tools.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-10 12:42:33 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-10 12:42:33 +0000
commita7d95e8e64458c3676a3bffafcc57833e74b876b (patch)
tree884e2d645b05a706be18de112dabfa45f2233455 /perl-install/network/tools.pm
parent9d2a27b9b8faace1e9a643f5d53785195f06ec8b (diff)
downloaddrakx-backup-do-not-use-a7d95e8e64458c3676a3bffafcc57833e74b876b.tar
drakx-backup-do-not-use-a7d95e8e64458c3676a3bffafcc57833e74b876b.tar.gz
drakx-backup-do-not-use-a7d95e8e64458c3676a3bffafcc57833e74b876b.tar.bz2
drakx-backup-do-not-use-a7d95e8e64458c3676a3bffafcc57833e74b876b.tar.xz
drakx-backup-do-not-use-a7d95e8e64458c3676a3bffafcc57833e74b876b.zip
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)
Diffstat (limited to 'perl-install/network/tools.pm')
-rw-r--r--perl-install/network/tools.pm2
1 files changed, 1 insertions, 1 deletions
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;