In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c3970b8037ca5769191bce298ba0202ce318fc78?hp=933a22568f4c2695009f681a5ba1ef103dac8547>
- Log ----------------------------------------------------------------- commit c3970b8037ca5769191bce298ba0202ce318fc78 Author: Shlomi Fish <[email protected]> Date: Thu Dec 19 13:06:42 2013 +0200 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. ----------------------------------------------------------------------- Summary of changes: lib/perl5db.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/perl5db.pl b/lib/perl5db.pl index ab82616..c1d6752 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.42'; +$VERSION = '1.43'; $header = "perl5db.pl version $VERSION"; @@ -9385,7 +9385,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 * -- Perl5 Master Repository
