In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/a0ca6c9f50686147259f2c392bc41dabf78ae04e?hp=6e9fdf669f1f006544b537fb5ffb2d3212704cfa>
- Log ----------------------------------------------------------------- commit a0ca6c9f50686147259f2c392bc41dabf78ae04e Author: Father Chrysostomos <[email protected]> Date: Sun Sep 14 23:03:08 2014 -0700 Increase $Term::ReadLine::VERSION to 1.15 M dist/Term-ReadLine/lib/Term/ReadLine.pm commit 53e7e3c6146453e002adec01fcdd3fb72e1259f4 Author: Father Chrysostomos <[email protected]> Date: Sun Sep 14 23:02:01 2014 -0700 Term::ReadLine: Check $^O before -e Put faster checks first. $^O is internal to perl, but -e has to go out to the file system. M dist/Term-ReadLine/lib/Term/ReadLine.pm ----------------------------------------------------------------------- Summary of changes: dist/Term-ReadLine/lib/Term/ReadLine.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/dist/Term-ReadLine/lib/Term/ReadLine.pm b/dist/Term-ReadLine/lib/Term/ReadLine.pm index 80a0d4b..db08947 100644 --- a/dist/Term-ReadLine/lib/Term/ReadLine.pm +++ b/dist/Term-ReadLine/lib/Term/ReadLine.pm @@ -233,9 +233,9 @@ sub findConsole { my $console; my $consoleOUT; - if (-e "/dev/tty" and $^O ne 'MSWin32') { + if ($^O ne 'MSWin32' and -e "/dev/tty") { $console = "/dev/tty"; - } elsif (-e "con" or $^O eq 'MSWin32' or $^O eq 'msys') { + } elsif ($^O eq 'MSWin32' or $^O eq 'msys' or -e "con") { $console = 'CONIN$'; $consoleOUT = 'CONOUT$'; } elsif ($^O eq 'VMS') { @@ -320,7 +320,7 @@ sub Features { \%features } package Term::ReadLine; # So late to allow the above code be defined? -our $VERSION = '1.14'; +our $VERSION = '1.15'; my ($which) = exists $ENV{PERL_RL} ? split /\s+/, $ENV{PERL_RL} : undef; if ($which) { -- Perl5 Master Repository
