perl5db: fix an accidental effect of strictures

see https://rt.perl.org/rt3/Ticket/Display.html?id=114284
Perl · Sep 5, 2012 · 32050a6 · 32050a6
1 parent 9bcdb3d
commit 32050a6
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/lib/perl5db.pl b/lib/perl5db.pl
@@ -8666,8 +8666,11 @@ =head3  Scalar, array, and hash completion: partially qualified package
 
 =cut
 
-        my @out = map "$prefix$_", grep /^\Q$text/, grep /^_?[a-zA-Z]/,
-          keys %$pack;
+        my @out = do {
+            no strict 'refs';
+            map "$prefix$_", grep /^\Q$text/, grep /^_?[a-zA-Z]/,
+            keys %$pack;
+        };
 
 =pod