adopt new socket usage

cosimo · Mar 17, 2011 · 28161eb · 28161eb
1 parent e480ffd
commit 28161eb
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 14 deletions.
diff --git a/lib/LWP/Simple.pm b/lib/LWP/Simple.pm
@@ -132,18 +132,17 @@ method decode_chunked (@content) {
     return @content;
 }
 
-method make_request ($hostname, $port, $path, %headers) {
+method make_request ($host, $port as Int, $path, %headers) {
 
     my $headers = self.stringify_headers(%headers);
 
-    my $sock = IO::Socket::INET.new;
+    my $sock = IO::Socket::INET.new(:$host, :$port);
-    $sock.open($hostname, $port.Int, :bin);
     my $req_str = "GET {$path} HTTP/1.1\r\n"
         ~ $headers
         ~ "\r\n";
 
     $sock.send($req_str);
-
+;
     my $resp = $sock.recv();
     $sock.close();
 

diff --git a/t/socket-sanity.t b/t/socket-sanity.t
@@ -1,16 +1,8 @@
 use v6;
 use Test;
 
-plan 2;
+plan 1;
 
-my $s = IO::Socket::INET.new;
+my $s = IO::Socket::INET.new(:host('72.14.176.61'), :port(80));
 ok($s, 'Socket object created');
 
-#my $opened = $s.open('www.rakudo.org', 80);
-my $opened = $s.open('72.14.176.61', 80);
-ok($opened, 'Socket to www.rakudo.org:80 opened');
-
-if ! $opened {
-    diag("Failed opening the socket: $opened");
-}
-