X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=configpm;h=0c6a9650728f12c238c3128d6afd9ea4f16fcec8;hb=6c72d195a44add86e50e54c2c80795702dc3fc9f;hp=2a22bfc7e5cc110331e92ed63c3edfbcb0d90442;hpb=754da6387aaed7d7ca907de8ac487143097ad5e3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/configpm b/configpm
index 2a22bfc..0c6a965 100755
--- 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;
 }
@@ -186,6 +180,9 @@ ENDOFSET
 
 print CONFIG <<'ENDOFTAIL';
 
+# avoid Config..Exporter..UNIVERSAL search for DESTROY then AUTOLOAD
+sub DESTROY { }
+
 tie %Config, 'Config';
 
 1;