From: Vincent Pit <perl@profvince.com>
Date: Mon, 25 Jun 2012 14:07:25 +0000 (+0200)
Subject: Fix tab completion of module names in the debugger
X-Git-Tag: upstream/5.20.0~6270
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9df8bd1db54cceb60e2db0a139ff7db66d12a3de;p=platform%2Fupstream%2Fperl.git

Fix tab completion of module names in the debugger

Also broken by 'use strict'.
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index d914154..4b4ab36 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -8566,7 +8566,8 @@ start with 'main::'. Return this list.
 
     return sort map { ( $_, db_complete( $_ . "::", "V ", 2 ) ) }
       grep !/^main::/, grep /^\Q$text/,
-      map { /^(.*)::$/ ? ( $prefix . "::$1" ) : () } keys %{ $prefix . '::' }
+      map { /^(.*)::$/ ? ( $prefix . "::$1" ) : () }
+      do { no strict 'refs'; keys %{ $prefix . '::' } }
       if ( substr $line, 0, $start ) =~ /^\|*[Vm]\s+$/
       and $text =~ /^(.*[^:])::?(\w*)$/
       and $prefix = $1;