diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1999-08-23 03:36:24 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 1999-08-23 03:36:24 +0000 |
| commit | d5e3fa331e0b7b512640fd8df612404381c7e7f0 (patch) | |
| tree | 5cc42276f39fc9cf03ae25df236f4e78fff39f4b /lib | |
| parent | 6a7df29852fc54848369f511da04a00e0c771fe6 (diff) | |
| download | perl-d5e3fa331e0b7b512640fd8df612404381c7e7f0.tar.gz | |
Fix handling of PERL_POLLUTE
p4raw-id: //depot/vmsperl@4029
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/MM_VMS.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm index 4c64910eb4..a15e328657 100644 --- a/lib/ExtUtils/MM_VMS.pm +++ b/lib/ExtUtils/MM_VMS.pm @@ -456,6 +456,9 @@ sub constants { my($self) = @_; my(@m,$def,$macro); + # Be kind about case for pollution + for (@ARGV) { $_ = uc($_) if /POLLUTE/i; } + if ($self->{DEFINE} ne '') { my(@terms) = split(/\s+/,$self->{DEFINE}); my(@defs,@udefs); @@ -674,6 +677,7 @@ sub cflags { warn "MM_VMS: Ignoring unrecognized CCFLAGS elements \"$quals\"\n"; $quals = ''; } + $definestr .= q["PERL_POLLUTE",] if $self->{POLLUTE}; if (length $definestr) { chop($definestr); $quals .= "/Define=($definestr)"; } if (length $undefstr) { chop($undefstr); $quals .= "/Undef=($undefstr)"; } # Deal with $self->{DEFINE} here since some C compilers pay attention @@ -2022,12 +2026,13 @@ $(MAKE_APERL_FILE) : $(FIRST_MAKEFILE) $(NOECHO) $(PERL) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" \ Makefile.PL DIR=}, $dir, q{ \ MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \ - MAKEAPERL=1 NORECURS=1 + MAKEAPERL=1 NORECURS=1 }; + + push @m, map(q[ \\\n\t\t"$_"], @ARGV),q{ $(MAP_TARGET) :: $(MAKE_APERL_FILE) $(MMS)$(MMSQUALIFIERS)$(USEMAKEFILE)$(MAKE_APERL_FILE) static $(MMS$TARGET) }; - push @m, map( " \\\n\t\t$_", @ARGV ); push @m, "\n"; return join '', @m; |