[IO/Socket/INET.pm] rewrite the socket() method to avoid using := and…

… re-enable the relevant line in spectest.data

src/core/IO/Socket/INET.pm

@@ -41,9 +41,18 @@ class IO::Socket::INET is Cool does IO::Socket {
     }
 
     method socket(Int $domain, Int $type, Int $protocol) {
-        my $PIO := Q:PIR {{ %r = root_new ['parrot';'Socket'] }};
-        $PIO.socket($domain, $type, $protocol);
-        return IO::Socket::INET.new( :PIO($PIO) );
+        return IO::Socket::INET.new( :PIO(Q:PIR {{
+            .local pmc pio
+            .local pmc domain
+            .local pmc type
+            .local pmc protocol
+            pio = root_new ['parrot';'Socket']
+            domain   = find_lex "$domain"
+            type     = find_lex "$type"
+            protocol = find_lex "$protocol"
+            pio.'socket'(domain, type, protocol)
+            %r = pio
+        }}) );
     }
 
     method bind($host, $port) {

t/spectest.data

@@ -509,7 +509,7 @@ S32-hash/push.t
 # S32-io/chdir.t
 S32-io/file-tests.t
 S32-io/note.t
-# S32-io/IO-Socket-INET.t
+S32-io/IO-Socket-INET.t
 S32-list/classify.t
 ## S32-list/create.t
 S32-list/end.t