[perl #83866] IO::Socket::INET Couldn't create socket.

[Cosimo Streppone via RT]

Indicated patch doesn't work for me.
Additionally, my perl6 LWP::Simple module doesn't work any more.

Here's a simple test case with current rakudo/parrot:

$ perl6 -v

This is Rakudo Perl 6, version 2011.02-43-gbfdd78d built on parrot 
3.1.0 RELEASE_3_1_0-700-gdb77547

Copyright 2008-2011, The Perl Foundation

$ cd perl6-lwp-simple
$ cat t/socket-sanity.t
use v6;
use Test;

plan 2;

my $s = IO::Socket::INET.new;
ok($s, 'Socket object created');

# Tried IP address too, doesn't work
#my $opened = $s.open('72.14.176.61', 80);
my $opened = $s.open('www.rakudo.org', 80);

ok($opened, 'Socket to www.rakudo.org:80 opened');
if ! $opened {
    diag("Failed opening the socket: $opened");
}

$ PERL6LIB=lib prove -e perl6 -v t/socket-sanity.t 
t/socket-sanity.t .. 
1..2
ok 1 - Socket object created
Can't connect closed socket
  in 'IO::Socket::INET::open' at line 5935:CORE.setting
  in main program body at line 10:t/socket-sanity.t
Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/2 subtests 

Test Summary Report
-------------------
t/socket-sanity.t (Wstat: 256 Tests: 1 Failed: 0)
  Non-zero exit status: 1
  Parse errors: Bad plan.  You planned 2 tests but ran 1.
Files=1, Tests=1,  1 wallclock secs ( 0.04 usr  0.00 sys +  0.86 cusr  
0.09 csys =  0.99 CPU)
Result: FAIL