explicitly set encoding on sockets

rakudo · Jun 27, 2012 · d0dc2d3 · d0dc2d3
1 parent 88a9d69
commit d0dc2d3
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/core/IO/Socket/INET.pm b/src/core/IO/Socket/INET.pm
@@ -16,6 +16,7 @@ my class IO::Socket::INET does IO::Socket {
         constant PROTO_UDP      = 17;
     }
 
+    has Str $.encoding = 'utf8';
     has Str $.host;
     has Int $.port = 80;
     has Str $.localhost;
@@ -76,6 +77,7 @@ my class IO::Socket::INET does IO::Socket {
             $PIO.bind($addr);
         }
 
+        $PIO.encoding(nqp::unbox_s(PARROT_ENCODING(self.encoding)));
         if $.listen { 
             $PIO.listen($.listen);
         }