diff options
| -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; |