File perl-db-readline-crash.diff of Package perl.12367

--- ./lib/perl5db.pl.orig	2018-06-27 14:21:59.257709527 +0000
+++ ./lib/perl5db.pl	2018-06-27 14:23:01.185539884 +0000
@@ -9517,7 +9517,7 @@ If the package is C<::> (C<main>), creat
 =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 *