Remove special case in IO::Handle.write for parrot backend.

rakudo · May 28, 2014 · 65c175e · 65c175e
1 parent f8a2b50
commit 65c175e
Showing 1 changed file with 0 additions and 10 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -261,17 +261,7 @@ my class IO::Handle does IO::FileTestable {
     }
 
     method write(IO::Handle:D: Blob:D $buf) {
-#?if parrot
-        # This relies on the Parrot 'binary' encoding and that nqp::decode
-        # passes encoding straight down to Parrot.
-        my str $encoding = $!PIO.encoding;
-        $!PIO.encoding('binary');
-        $!PIO.print(nqp::decode(nqp::decont($buf), 'binary'));
-        $!PIO.encoding($encoding) unless $encoding eq 'binary';
-#?endif
-#?if !parrot
         nqp::writefh($!PIO, nqp::decont($buf));
-#?endif
         True;
     }