Re: Term::ReadKey on Win32: set console

diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm
index a52b558..105e6dd 100644 (file)
--- a/lib/Term/ReadLine.pm
+++ b/lib/Term/ReadLine.pm
@@ -157,7 +157,7 @@ sub findConsole {
 
     if (-e "/dev/tty") {
        $console = "/dev/tty";
-    } elsif (-e "con") {
+    } elsif (-e "con" or $^O eq 'MSWin32') {
        $console = "con";
     } else {
        $console = "sys\$command";