From 32050a639a295d8d8a4d4c664592c86f79aa1383 Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@cpan.org>
Date: Tue, 4 Sep 2012 22:37:13 -0400
Subject: [PATCH] perl5db: fix an accidental effect of strictures

see https://rt.perl.org/rt3/Ticket/Display.html?id=114284
---
 lib/perl5db.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 0751738..7cfeee2 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -8666,8 +8666,11 @@ Look through all the symbols in the package. C<grep> out all the possible hashes
 
 =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
 
-- 
1.8.3.1