Perl readline creates empty sys$command files if no STDIN is connected
authorSven Strickroth <email@cs-ware.de>
Thu, 2 Jan 2014 16:26:25 +0000 (2 17:26 +0100)
committerSven Strickroth <email@cs-ware.de>
Thu, 2 Jan 2014 16:26:25 +0000 (2 17:26 +0100)
This was originally reported to TortoiseGit: http://code.google.com/p/tortoisegit/issues/detail?id=1011

This patch was also reported to MinGW (http://sourceforge.net/p/mingw/patches/506/) and upstream perl (https://rt.perl.org//Public/Bug/Display.html?id=115900) where it was finally accepted and applied (to version 5.18).

Signed-off-by: Sven Strickroth <email@cs-ware.de>
lib/perl5/5.8.8/Term/ReadLine.pm

index 48eb991..6965aec 100644 (file)
@@ -214,7 +214,7 @@ sub findConsole {
         $console = "Dev:Console";
     } elsif (-e "/dev/tty") {
        $console = "/dev/tty";
-    } elsif (-e "con" or $^O eq 'MSWin32') {
+    } elsif (-e "con" or $^O eq 'MSWin32' or $^O eq 'msys') {
        $console = "con";
     } else {
        $console = "sys\$command";