diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2003-04-10 17:32:02 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-04-12 13:41:25 +0000 |
| commit | 431b0fc4d67b7f221bc3905fc50b43677201f1c6 (patch) | |
| tree | 7bb5f6cb6c5fc88df04ae7b1c4ba7648d61a01f8 /lib/ExtUtils/MM_VMS.pm | |
| parent | bcbfb61f88277e13fc99a5975ccfe2d69a14b0f0 (diff) | |
| download | perl-431b0fc4d67b7f221bc3905fc50b43677201f1c6.tar.gz | |
MakeMaker 6.10_02 -> 6.10_03
Message-ID: <20030411073202.GC5916@windhund.schwern.org>
p4raw-id: //depot/perl@19190
Diffstat (limited to 'lib/ExtUtils/MM_VMS.pm')
| -rw-r--r-- | lib/ExtUtils/MM_VMS.pm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm index 39e2c652bd..469f21d9c5 100644 --- a/lib/ExtUtils/MM_VMS.pm +++ b/lib/ExtUtils/MM_VMS.pm @@ -21,7 +21,7 @@ BEGIN { use File::Basename; use vars qw($Revision @ISA $VERSION); ($VERSION) = '5.67'; -($Revision = substr(q$Revision: 1.89 $, 10)) =~ s/\s+$//; +($Revision = substr(q$Revision: 1.91 $, 10)) =~ s/\s+$//; require ExtUtils::MM_Any; require ExtUtils::MM_Unix; @@ -1603,7 +1603,7 @@ uninstall_from_perldirs :: $(NOECHO) $(ECHO) "the appropriate files. Sorry for the inconvenience." uninstall_from_sitedirs :: - $(NOECHO) $(UNINSTALL) ],$self->catfile($self->{SITEARCHEXP},'auto',$self->{FULLEXT},'.packlist'),"\n",q[ + $(NOECHO) $(UNINSTALL) ].$self->catfile($self->{SITEARCHEXP},'auto',$self->{FULLEXT},'.packlist').q[ $(NOECHO) $(ECHO) "Uninstall is now deprecated and makes no actual changes." $(NOECHO) $(ECHO) "Please check the list above carefully for errors, and manually remove" $(NOECHO) $(ECHO) "the appropriate files. Sorry for the inconvenience." @@ -2232,7 +2232,14 @@ sub init_linker { $self->{EXPORT_LIST} ||= '$(BASEEXT).opt'; my $shr = $Config{dbgprefix} . 'PERLSHR'; - $self->{PERL_ARCHIVE} ||= $self->catfile($self->{PERL_SRC}, "$shr.$Config{'dlext'}"); + if ($self->{PERL_SRC}) { + $self->{PERL_ARCHIVE} ||= + $self->catfile($self->{PERL_SRC}, "$shr.$Config{'dlext'}"); + } + else { + $self->{PERL_ARCHIVE} ||= + $ENV{$shr} ? $ENV{$shr} : "Sys\$Share:$shr.$Config{'dlext'}"; + } $self->{PERL_ARCHIVE_AFTER} ||= ''; } |