Browse files

Perl readline creates empty sys$command files if no STDIN is connected

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>
  • Loading branch information...
1 parent d82f37a commit db8d1bff1b121a08ca3782c5f52ff6a04ff98533 @csware csware committed Jan 2, 2014
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/perl5/5.8.8/Term/ReadLine.pm
View
2 lib/perl5/5.8.8/Term/ReadLine.pm
@@ -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";

0 comments on commit db8d1bf

Please sign in to comment.