Merge remote branch 'remotes/origin/parrot-iocleanup1' into nom

rakudo · Jul 22, 2012 · e09fbe6 · e09fbe6
2 parents 5b56cfc + d0dc2d3
commit e09fbe6
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);
         }