Make port an Int if extracted from host:port in host

rakudo · Jun 4, 2015 · b9ab2c2 · b9ab2c2
1 parent ad21e90
commit b9ab2c2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/IO/Socket/INET.pm b/src/core/IO/Socket/INET.pm
@@ -45,7 +45,7 @@ my class IO::Socket::INET does IO::Socket {
                 ?? v6-split(%args<host>)
                 !! v4-split(%args<host>);
             if $port {
-                %args<port> //= $port;
+                %args<port> //= $port.Int;
                 %args<host> = $host;
             }
         }
@@ -54,7 +54,7 @@ my class IO::Socket::INET does IO::Socket {
                 ?? v6-split(%args<localhost>)
                 !! v4-split(%args<localhost>);
             if $port {
-                %args<localport> //= $port;
+                %args<localport> //= $port.Int;
                 %args<localhost> = $peer;
             }
         }