diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-08 15:16:49 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-08 15:16:49 +0000 |
| commit | f8968d56a620fbc24e6d1c635873db141d73b77c (patch) | |
| tree | 2e5e87b9976e42fc5c570781ee8855dd4a651d7f /lib/ExtUtils | |
| parent | fa048ccd3675cf90652c8154be797442eaa09f9b (diff) | |
| download | perl-f8968d56a620fbc24e6d1c635873db141d73b77c.tar.gz | |
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
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index 83b113bdef..0645268d91 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); |