diff options
| author | Ricardo Signes <rjbs@cpan.org> | 2012-03-14 16:46:21 -0400 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2012-03-15 09:33:58 -0400 |
| commit | 9705c32bcafe06aff1b40d0cb1bb0820ba56bc61 (patch) | |
| tree | e2169bc3f63ca20c71e5d57b3a9b223ca04e0eb7 /dist | |
| parent | dd4d388c3449c7b39c81d0a9714e4d966b5b845c (diff) | |
| download | perl-9705c32bcafe06aff1b40d0cb1bb0820ba56bc61.tar.gz | |
correct argument handling in Term::ReadLine
https://rt.perl.org/rt3/Ticket/Display.html?id=111758
patch by Darin McBride
Diffstat (limited to 'dist')
| -rw-r--r-- | 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 f1b1419891..3770df0552 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; } |