This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
dd4d388
)
correct argument handling in Term::ReadLine
author
Ricardo Signes
<rjbs@cpan.org>
Wed, 14 Mar 2012 20:46:21 +0000
(16:46 -0400)
committer
Ricardo Signes
<rjbs@cpan.org>
Thu, 15 Mar 2012 13:33:58 +0000
(09:33 -0400)
https://rt.perl.org/rt3/Ticket/Display.html?id=111758
patch by Darin McBride
dist/Term-ReadLine/lib/Term/ReadLine.pm
patch
|
blob
|
blame
|
history
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;
}