From: Tim Bunce <Tim.Bunce@ig.co.uk>
Date: Wed, 6 Aug 1997 12:00:00 +0000 (+1200)
Subject: Don't use undef value in Config::myconfig
X-Git-Tag: accepted/trunk/20130322.191538~38014^2~119
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=ca8cad5cbc439156ba0552dbc8d7d713d56c0a0e;p=platform%2Fupstream%2Fperl.git

Don't use undef value in Config::myconfig

(this is the same change as commit 754da6387aaed7d7ca907de8ac487143097ad5e3, but as applied)
---

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