diff options
| author | Shlomi Fish <shlomif@shlomifish.org> | 2013-12-19 13:06:42 +0200 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2014-01-06 10:30:59 +1100 |
| commit | c3970b8037ca5769191bce298ba0202ce318fc78 (patch) | |
| tree | ebcb30f0d6854d169aefbbd275abce7d708690aa /lib/perl5db.pl | |
| parent | 933a22568f4c2695009f681a5ba1ef103dac8547 (diff) | |
| download | perl-c3970b8037ca5769191bce298ba0202ce318fc78.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.
Diffstat (limited to '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 ab82616dfe..c1d67525c1 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 * |