Re: [perl #24081] invalid regexp in perl -V

Message-ID: <533D273D4014D411AB1D00062938C4D9040468F1@hotel.npl.co.uk>
with further adjustements for bleadperl

p4raw-id: //depot/perl@22921

1 files changed, 1 insertions, 1 deletions

diff --git a/configpm b/configpm
index 4f301c38fa..e27996f82b 100755
--- a/configpm
+++ b/configpm
@@ -329,7 +329,7 @@ sub config_sh {
 
 sub config_re {
     my $re = shift;
-    return map { chomp; $_ } grep /^$re=/, split /^/, $Config_SH;
+    return map { chomp; $_ } grep eval{ /^(?:$re)=/ }, split /^/, $Config_SH;
 }
 
 sub config_vars {