From ca8cad5cbc439156ba0552dbc8d7d713d56c0a0e Mon Sep 17 00:00:00 2001 From: Tim Bunce Date: Thu, 7 Aug 1997 00:00:00 +1200 Subject: Don't use undef value in Config::myconfig (this is the same change as commit 754da6387aaed7d7ca907de8ac487143097ad5e3, but as applied) --- configpm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'configpm') diff --git a/configpm b/configpm index fcf4e3d0fa..8ea1420506 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; } -- cgit v1.2.1