diff options
author | Steve Hay <steve.m.hay@googlemail.com> | 2012-08-18 12:28:32 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2012-08-18 12:28:32 +0100 |
commit | 4cc026083a62a3e603a429b3c13df20d575ea52a (patch) | |
tree | 9dfc2dc9631aca61ddf4f6d616edbb9f3bb72805 /dist/Term-ReadLine/lib | |
parent | 4eab039da16f1fc2e246f94a6af541703e6a7e9b (diff) | |
download | perl-4cc026083a62a3e603a429b3c13df20d575ea52a.tar.gz |
Don't use /dev/tty if it happens to exist on Windows
This fixes CPAN RT#79001 and CPAN RT#79064.
Diffstat (limited to 'dist/Term-ReadLine/lib')
-rw-r--r-- | dist/Term-ReadLine/lib/Term/ReadLine.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dist/Term-ReadLine/lib/Term/ReadLine.pm b/dist/Term-ReadLine/lib/Term/ReadLine.pm index 3770df0552..9d176d7f7b 100644 --- a/dist/Term-ReadLine/lib/Term/ReadLine.pm +++ b/dist/Term-ReadLine/lib/Term/ReadLine.pm @@ -233,7 +233,7 @@ sub findConsole { my $console; my $consoleOUT; - if (-e "/dev/tty") { + if (-e "/dev/tty" and $^O ne 'MSWin32') { $console = "/dev/tty"; } elsif (-e "con" or $^O eq 'MSWin32') { $console = 'CONIN$'; @@ -327,7 +327,7 @@ sub Features { \%features } package Term::ReadLine; # So late to allow the above code be defined? -our $VERSION = '1.09'; +our $VERSION = '1.10'; my ($which) = exists $ENV{PERL_RL} ? split /\s+/, $ENV{PERL_RL} : undef; if ($which) { |