$\1 and serious bug in evalling

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

diff --git a/configpm b/configpm
index 2a22bfc..8ea1420 100755 (executable)
--- a/configpm
+++ b/configpm
@@ -79,14 +79,8 @@ my $summary_expanded = 0;
 
 sub myconfig {
        return $summary if $summary_expanded;
-       $summary =~ s{
-                     \$(\w+)
-                    }{
-                         defined $Config{$1} 
-                         ? $Config{$1} 
-                         : "not defined"
-                    }xge;
-       $summary =~ s/\$(\w+)/$Config{$1}/ge;
+       $summary =~ s{\$(\w+)}
+                    { my $c = $Config{$1}; defined($c) ? $c : 'undef' }ge;
        $summary_expanded = 1;
        $summary;
 }