Gerard Patel <[EMAIL PROTECTED]> writes:
> Hello
>
>
> Problem is in this change
> --- tools.pm2002-11-10 10:08:55.0 +0100
> +++ tools.pm.orig 2002-11-07 17:33:00.0 +0100
> @@ -207,6 +207,7 @@
> }
>
> sub connected2 {
> +local *KID_TO_READ;
> my $pid = open(KID_TO_READ, "-|");
> if ($pid) { # parent
> $kid_pid = $pid;
>
> after this, the following call fails :
> fcntl(F, c::F_SETFL(), c::O_NONBLOCK()) or die "can't fcntl F_SETFL: $!";
>
> Hope this helps.
sure it helps! here is a fix (another one is reverting the change
above :)
--- network/tools.pm2002/11/09 20:34:28 1.57
+++ network/tools.pm2002/11/10 12:42:33 1.58
@@ -211,7 +211,7 @@
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;
thanks!
