Bug #40010 for Win32-Socketpair:

Mon Oct 13 10:10:31 2008 IKEGAMI [...] cpan.org - Ticket created

The ioctl commands crash my perl. I'm using ActivePerl 5.8.8 build 824 on WinXP. Commenting them out allows the module to function.

Mon Oct 13 10:30:53 2008 salva [...] cpan.org - Correspondence added

On Mon Oct 13 10:10:31 2008, ikegami wrote: Show quoted text

> The ioctl commands crash my perl. I'm using ActivePerl 5.8.8 build 824 > on WinXP. > > Commenting them out allows the module to function.

Could you try the workaround sugested in this post in Perlmonks: http://perlmonks.org/?node_id=714745 ? - Salva

Mon Oct 13 10:30:55 2008 The RT System itself - Status changed from 'new' to 'open'

Mon Oct 13 13:03:27 2008 ikegami [...] adaelis.com - Correspondence added

Subject:	Re: [rt.cpan.org #40010]
Date:	Mon, 13 Oct 2008 13:02:58 -0400
To:	bug-Win32-Socketpair [...] rt.cpan.org
From:	"Eric Brine" <ikegami [...] adaelis.com>

On Mon, Oct 13, 2008 at 10:30 AM, Salvador Fandino Garcia via RT < bug-Win32-Socketpair@rt.cpan.org> wrote: Show quoted text

> <URL: http://rt.cpan.org/Ticket/Display.html?id=40010 > > > On Mon Oct 13 10:10:31 2008, ikegami wrote:

> > The ioctl commands crash my perl. I'm using ActivePerl 5.8.8 build 824 > > on WinXP. > > > > Commenting them out allows the module to function.

> > > Could you try the workaround sugested in this post in Perlmonks: > http://perlmonks.org/?node_id=714745 ? >

- ioctl($client, 0x8004667e, 1); + my $true = 1; + ioctl($client, 0x8004667e, \$true); - ioctl($client, 0x8004667e, 0); + my $false = 0; + ioctl($client, 0x8004667e, \$false); gives Show quoted text

>perl -MWin32::Socketpair=winsocketpair -we"winsocketpair() or die $!"

winsocketpair failed: Bad file descriptor, retrying at -e line 1 winsocketpair failed: Bad file descriptor, retrying at -e line 1 winsocketpair failed: Bad file descriptor, retrying at -e line 1 winsocketpair failed: Bad file descriptor, retrying at -e line 1 Bad file descriptor at -e line 1. $!==9/"Bad file descriptor" is being returned by connect($client, $addr) . - Eric "ikegami" Brine