diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-10 12:42:33 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-10 12:42:33 +0000 |
| commit | a7d95e8e64458c3676a3bffafcc57833e74b876b (patch) | |
| tree | 884e2d645b05a706be18de112dabfa45f2233455 | |
| parent | 9d2a27b9b8faace1e9a643f5d53785195f06ec8b (diff) | |
| download | drakx-a7d95e8e64458c3676a3bffafcc57833e74b876b.tar drakx-a7d95e8e64458c3676a3bffafcc57833e74b876b.tar.gz drakx-a7d95e8e64458c3676a3bffafcc57833e74b876b.tar.bz2 drakx-a7d95e8e64458c3676a3bffafcc57833e74b876b.tar.xz drakx-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)
| -rw-r--r-- | perl-install/network/tools.pm | 2 |
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; |