diff options
author | Shlomi Fish <shlomif@shlomifish.org> | 2013-12-19 13:06:42 +0200 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2014-01-13 11:21:39 +1100 |
commit | 538acd8d5bf7bc6822981561d74653d070253941 (patch) | |
tree | 68a61f56044aafd5a5c8cddf6253b50b044f3401 | |
parent | 1332f10946560bb419517a581b7f56982fcc659f (diff) | |
download | perl-538acd8d5bf7bc6822981561d74653d070253941.tar.gz |
Crash in tab completion with Term::ReadLine::Gnu.
Perhaps it also affects Term::ReadLine::Perl / Term::ReadLine::Perl5 .
I still need to test with PadWalker installed. No tests were added, but
it passes all existing tests.
Conflicts:
lib/perl5db.pl
-rw-r--r-- | lib/perl5db.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index bcb4dd5ad2..da532fb304 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -523,7 +523,7 @@ BEGIN { # Debugger for Perl 5.00x; perl5db.pl patch level: use vars qw($VERSION $header); -$VERSION = '1.39_10'; +$VERSION = '1.39_11'; $header = "perl5db.pl version $VERSION"; @@ -9511,7 +9511,7 @@ If the package is C<::> (C<main>), create an empty list; if it's something else, =cut push @out, map "$prefix$_", grep /^\Q$text/, - ( grep /^_?[a-zA-Z]/, keys %$pack ), + ( grep /^_?[a-zA-Z]/, do { no strict 'refs'; keys %$pack } ), ( $pack eq '::' ? () : ( grep /::$/, keys %:: ) ); =item * |