(msys) perl readline creates sys$command files w/o STDIN connected

This fixes [perl #115900].

diff --git a/dist/Term-ReadLine/lib/Term/ReadLine.pm b/dist/Term-ReadLine/lib/Term/ReadLine.pm
index 9d176d7..6f94981 100644 (file)
--- a/dist/Term-ReadLine/lib/Term/ReadLine.pm
+++ b/dist/Term-ReadLine/lib/Term/ReadLine.pm
@@ -235,7 +235,7 @@ sub findConsole {
 
     if (-e "/dev/tty" and $^O ne 'MSWin32') {
        $console = "/dev/tty";
 
     if (-e "/dev/tty" and $^O ne 'MSWin32') {
        $console = "/dev/tty";

-    } elsif (-e "con" or $^O eq 'MSWin32') {
+    } elsif (-e "con" or $^O eq 'MSWin32' or $^O eq 'msys') {

        $console = 'CONIN$';
        $consoleOUT = 'CONOUT$';
     } else {
        $console = 'CONIN$';
        $consoleOUT = 'CONOUT$';
     } else {