simplify preprocessor directives

and remove a stray §?endif
rakudo · Sep 10, 2014 · 1cc69a7 · 1cc69a7
1 parent a09f17d
commit 1cc69a7
Showing 1 changed file with 1 addition and 11 deletions.
diff --git a/src/core/IO/Socket/INET.pm b/src/core/IO/Socket/INET.pm
@@ -119,16 +119,7 @@ my class IO::Socket::INET does IO::Socket {
 
         my str $line = $PIO.readline($sep);
 #?endif
-#?if jvm
-        my str $sep = nqp::unbox_s($!input-line-separator);
-        my int $sep-len = nqp::chars($sep);
-
-        my Mu $io := nqp::getattr(self, $?CLASS, '$!PIO');
-        nqp::setencoding($io, nqp::unbox_s($!encoding));
-        nqp::setinputlinesep($io, $sep);
-        my Str $line = nqp::p6box_s(nqp::readlinefh($io));
-#?endif
-#?if moar
+#?if !parrot
         my str $sep = nqp::unbox_s($!input-line-separator);
         my int $sep-len = nqp::chars($sep);
 
@@ -147,7 +138,6 @@ my class IO::Socket::INET does IO::Socket {
                 ?? nqp::p6box_s(nqp::substr($line, 0, $len - $sep-len))
                 !! nqp::p6box_s($line);
         }
-#?endif
     }
 
     method lines() {