[perl.git] branch blead, updated. v5.15.8-136-g9705c32

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 <rjbs@cpan.org>
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

• [perl.git] branch blead, updated. v5.15.8-136-g9705c32 by Ricardo Signes