From: Sven Strickroth <sven.strickroth@tu-clausthal.de>
Date: Sun, 25 Nov 2012 14:44:02 +0000 (-0600)
Subject: (msys) perl readline creates sys$command files w/o STDIN connected
X-Git-Tag: v5.17.7~267
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/0a616d17c63ccea3e07a9370becf1d236ce89558

(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
--- 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";
-    } elsif (-e "con" or $^O eq 'MSWin32') {
+    } elsif (-e "con" or $^O eq 'MSWin32' or $^O eq 'msys') {
        $console = 'CONIN$';
        $consoleOUT = 'CONOUT$';
     } else {