--- lib/Term/ReadLine.pm	2011-09-26 12:44:34.000000000 +0300
+++ lib/Term/ReadLine.pm	2015-11-15 23:28:33.000000000 +0200
@@ -191,32 +191,11 @@
 sub addhistory {}
 
 sub findConsole {
-    my $console;
-    my $consoleOUT;
-
-    if ($^O ne 'MSWin32' and -e "/dev/tty") {
-	$console = "/dev/tty";
-    } elsif ($^O eq 'MSWin32' or $^O eq 'msys' or -e "con") {
-       $console = 'CONIN$';
-       $consoleOUT = 'CONOUT$';
-    } elsif ($^O eq 'VMS') {
-	$console = "sys\$command";
-    } elsif ($^O eq 'os2' && !$DB::emacs) {
-	$console = "/dev/con";
-    } else {
-	$console = undef;
-    }
-
-    $consoleOUT = $console unless defined $consoleOUT;
-    $console = "&STDIN" unless defined $console;
-    if ($console eq "/dev/tty" && !open(my $fh, "<", $console)) {
-      $console = "&STDIN";
-      undef($consoleOUT);
-    }
-    if (!defined $consoleOUT) {
-      $consoleOUT = defined fileno(STDERR) && $^O ne 'MSWin32' ? "&STDERR" : "&STDOUT";
-    }
-    ($console,$consoleOUT);
+    my ($tty, $IN, $OUT) = "/dev/tty";
+    -r $tty and $IN = $tty or $IN = "&STDIN";
+    -w $tty and $OUT = $tty or $OUT =
+    defined fileno(STDERR) ? "&STDERR" : "&STDOUT";
+    return ($IN, $OUT);
 }
 
 sub new {