Fix for: [perl #2738] perl segfautls on input

[p5sagit/p5-mst-13.2.git] / configpm

diff --git a/configpm b/configpm
index 4f301c3..e27996f 100755 (executable)
--- 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 {