IO::Socket::INET.open() broken? RT#83866

[Cosimo Streppone]

Hi all,

I just downloaded and compiled rakudo/parrot, as in:
  ~/src/perl6/perl6-cache-memcached$ 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

and I discovered that my LWP::Simple code doesn't work anymore, as in:

  $ 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

Of course I can telnet to www.rakudo.org:80 just fine.
I tried to figure out what's happening, but I'm not really sure.
I replied to #83866 that seems to be about a similar
(but not the same) problem:

  http://rt.perl.org/rt3/Ticket/Display.html?id=83866

So, what happened to IO::Socket::INET?

--
Cosimo