correct argument handling in Term::ReadLine

https://rt.perl.org/rt3/Ticket/Display.html?id=111758

patch by Darin McBride

diff --git a/dist/Term-ReadLine/lib/Term/ReadLine.pm b/dist/Term-ReadLine/lib/Term/ReadLine.pm
index f1b1419..3770df0 100644 (file)
--- 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;
 }