In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9705c32bcafe06aff1b40d0cb1bb0820ba56bc61?hp=dd4d388c3449c7b39c81d0a9714e4d966b5b845c>
- Log ----------------------------------------------------------------- commit 9705c32bcafe06aff1b40d0cb1bb0820ba56bc61 Author: Ricardo Signes <[email protected]> Date: Wed Mar 14 16:46:21 2012 -0400 correct argument handling in Term::ReadLine https://rt.perl.org/rt3/Ticket/Display.html?id=111758 patch by Darin McBride ----------------------------------------------------------------------- Summary of changes: dist/Term-ReadLine/lib/Term/ReadLine.pm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/dist/Term-ReadLine/lib/Term/ReadLine.pm b/dist/Term-ReadLine/lib/Term/ReadLine.pm index f1b1419..3770df0 100644 --- a/dist/Term-ReadLine/lib/Term/ReadLine.pm +++ b/dist/Term-ReadLine/lib/Term/ReadLine.pm @@ -454,7 +454,7 @@ sub event_loop { # store the callback in toloop, again so that other modules will # recognise it and call us for the loop. - $Term::ReadLine::toloop = [ @_ ] if @_ > 1; + $Term::ReadLine::toloop = [ @_ ] if @_ > 0; # 0 because we shifted off $self. $Term::ReadLine::toloop; } -- Perl5 Master Repository
