Whether overwriting the $self->{...} values (see #12902)
Jarkko Hietaniemi [Thu, 8 Nov 2001 15:16:49 +0000 (15:16 +0000)]
is a good policy or not is debatable, but let's at least
be consistent.

p4raw-id: //depot/perl@12903

lib/ExtUtils/MM_Unix.pm

index 83b113b..0645268 100644 (file)
@@ -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);