diff options
| author | Dan Sugalski <dan@sidhe.org> | 1998-06-19 08:36:34 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-21 06:55:18 +0000 |
| commit | 429a5e67a8cd7868f6400fb40a70246ad7548973 (patch) | |
| tree | a6ee82a5dae271a7ae918a6b654d9d8026af2e8f /lib/ExtUtils/MM_VMS.pm | |
| parent | 4318d5a0158916acc059aa8e6af84037cb7296b9 (diff) | |
| download | perl-429a5e67a8cd7868f6400fb40a70246ad7548973.tar.gz | |
applied VMS patch from Dan Sugalski
Message-Id: <980619153634.2063ee12@cedar.osshe.edu>
Subject: [PATCH 5.004_67] Enhancements to the VMS configuration procedures
p4raw-id: //depot/perl@1174
Diffstat (limited to 'lib/ExtUtils/MM_VMS.pm')
| -rw-r--r-- | lib/ExtUtils/MM_VMS.pm | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm index e3bd7df24a..34a0d34ebf 100644 --- a/lib/ExtUtils/MM_VMS.pm +++ b/lib/ExtUtils/MM_VMS.pm @@ -852,16 +852,17 @@ sub cflags { } $libperl or $libperl = $self->{LIBPERL_A} || "libperl.olb"; - if ($libperl =~ s/^$Config{'dbgprefix'}//) { $libperl =~ s/perl([^Dd]*)\./perld$1./; } - if ($libperl =~ /libperl(\w+)\./i) { - my($type) = uc $1; - my(%map) = ( 'D' => 'DEBUGGING', 'E' => 'EMBED', 'M' => 'MULTIPLICITY', - 'DE' => 'DEBUGGING,EMBED', 'DM' => 'DEBUGGING,MULTIPLICITY', - 'EM' => 'EMBED,MULTIPLICITY', 'DEM' => 'DEBUGGING,EMBED,MULTIPLICITY' ); - my($add) = join(',', grep { $quals !~ /\b$_\b/ } split(/,/,$map{$type})); - $quals =~ s:/define=\(([^\)]+)\):/Define=($1,$add):i if $add; - $self->{PERLTYPE} ||= $type; - } +# This whole section is commented out, since I don't think it's necessary (or applicable) +# if ($libperl =~ s/^$Config{'dbgprefix'}//) { $libperl =~ s/perl([^Dd]*)\./perld$1./; } +# if ($libperl =~ /libperl(\w+)\./i) { +# my($type) = uc $1; +# my(%map) = ( 'D' => 'DEBUGGING', 'E' => 'EMBED', 'M' => 'MULTIPLICITY', +# 'DE' => 'DEBUGGING,EMBED', 'DM' => 'DEBUGGING,MULTIPLICITY', +# 'EM' => 'EMBED,MULTIPLICITY', 'DEM' => 'DEBUGGING,EMBED,MULTIPLICITY' ); +# my($add) = join(',', grep { $quals !~ /\b$_\b/ } split(/,/,$map{$type})); +# $quals =~ s:/define=\(([^\)]+)\):/Define=($1,$add):i if $add; +# $self->{PERLTYPE} ||= $type; +# } # Likewise with $self->{INC} and /Include if ($self->{'INC'}) { |