In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/4cc026083a62a3e603a429b3c13df20d575ea52a?hp=4eab039da16f1fc2e246f94a6af541703e6a7e9b>
- Log ----------------------------------------------------------------- commit 4cc026083a62a3e603a429b3c13df20d575ea52a Author: Steve Hay <[email protected]> Date: Sat Aug 18 12:28:32 2012 +0100 Don't use /dev/tty if it happens to exist on Windows This fixes CPAN RT#79001 and CPAN RT#79064. ----------------------------------------------------------------------- Summary of changes: dist/Term-ReadLine/lib/Term/ReadLine.pm | 4 ++-- pod/perldelta.pod | 6 ++++++ 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/dist/Term-ReadLine/lib/Term/ReadLine.pm b/dist/Term-ReadLine/lib/Term/ReadLine.pm index 3770df0..9d176d7 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) { diff --git a/pod/perldelta.pod b/pod/perldelta.pod index f20edd5..bd0de17 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -248,6 +248,12 @@ resolved, and <getservbyname()> is no longer called when the port is specified. =item * +L<Term::ReadLine> has been upgraded from version 1.09 to 1.10. This fixes the +use of the B<cpan> and B<cpanp> shells on Windows in the event that the current +drive happens to contain a F<\dev\tty> file. + +=item * + L<Time::Local> has been upgraded from version 1.2000 to 1.2300. Seconds values greater than 59 but less than 60 no longer cause C<timegm()> and C<timelocal()> to croak. -- Perl5 Master Repository
