Fix tab completion of module names in the debugger

Also broken by 'use strict'.
Perl · Jun 25, 2012 · 9df8bd1 · 9df8bd1
1 parent a47c73f
commit 9df8bd1
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/perl5db.pl b/lib/perl5db.pl
@@ -8566,7 +8566,8 @@ =head4 Qualified package names
 
     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;