diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2001-11-07 04:23:28 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-07 13:33:16 +0000 |
| commit | ac25e0e7a2e75fb7e53fc4dc4ebe4a9553c700b9 (patch) | |
| tree | 8f62b96a03536a6e17238514f7719553dd64889d /lib | |
| parent | 0ac0412a111b224c7f0c310960dde8b2a3fdad89 (diff) | |
| download | perl-ac25e0e7a2e75fb7e53fc4dc4ebe4a9553c700b9.tar.gz | |
vms/gen_shrfls.pl more general config.sh parsing
Message-Id: <011107092325.11726@DUPHY4.Physics.Drexel.Edu>
(Also i seems that an unrelated experimental patch
to lib/ExtUtils/MM_Unix.pm was accidentally included.)
p4raw-id: //depot/perl@12883
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index e6c676607f..8b236fc05e 100644 --- a/lib/ExtUtils/MM_Unix.pm +++ b/lib/ExtUtils/MM_Unix.pm @@ -397,6 +397,9 @@ sub cflags { $pollute = '$(PERL_MALLOC_DEF)'; } + $self->{CCFLAGS} =~ s/([()])/\\$1/g; + $self->{OPTIMIZE} =~ s/([()])/\\$1/g; + return $self->{CFLAGS} = qq{ CCFLAGS = $self->{CCFLAGS} OPTIMIZE = $self->{OPTIMIZE} @@ -502,6 +505,7 @@ 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'; + $self->{uc $m} =~ s/([()])/\\$1/g; push @m, "\U$m\E = ".$self->{uc $m}."\n"; $once_only{$m} = 1; } |