From 538acd8d5bf7bc6822981561d74653d070253941 Mon Sep 17 00:00:00 2001 From: Shlomi Fish Date: Thu, 19 Dec 2013 13:06:42 +0200 Subject: 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 --- lib/perl5db.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/perl5db.pl') 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
), 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 * -- cgit v1.2.1