From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 8 Nov 2001 15:16:49 +0000 (+0000)
Subject: Whether overwriting the $self->{...} values (see #12902)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f8968d56a620fbc24e6d1c635873db141d73b77c;p=p5sagit%2Fp5-mst-13.2.git

Whether overwriting the $self->{...} values (see #12902)
is a good policy or not is debatable, but let's at least
be consistent.

p4raw-id: //depot/perl@12903
---

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 83b113b..0645268 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -506,7 +506,8 @@ sub const_config {
     foreach $m (@{$self->{CONFIG}}){
 	# SITE*EXP macros are defined in &constants; avoid duplicates here
 	next if $once_only{$m} or $m eq 'sitelibexp' or $m eq 'sitearchexp';
-	push @m, uc($m) , ' = ' , quote_paren($self->{uc $m}), "\n";
+	$self->{uc $m} = quote_paren($self->{uc $m});
+	push @m, uc($m) , ' = ' , $self->{uc $m}, "\n";
 	$once_only{$m} = 1;
     }
     join('', @m);