From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 2 Apr 2003 04:30:45 +0000 (+0000)
Subject: MM_VMS tweak from Craig Berry:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0653e11b5f709a41c69210a1f63f641f2e63afd4;p=p5sagit%2Fp5-mst-13.2.git

MM_VMS tweak from Craig Berry:
http://nntp.x.perl.org/group/perl.makemaker/1002

p4raw-id: //depot/perl@19129
---

diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm
index cd68c5e..422f864 100644
--- a/lib/ExtUtils/MM_VMS.pm
+++ b/lib/ExtUtils/MM_VMS.pm
@@ -2226,7 +2226,7 @@ sub init_linker {
     $self->{EXPORT_LIST} ||= '$(BASEEXT).opt';
 
     my $shr = $Config{dbgprefix} . 'PERLSHR';
-    $self->{PERL_ARCHIVE} ||=  $ENV{$shr} ? $ENV{$shr} : "Sys\$Share:$shr.$Config{'dlext'}";
+    $self->{PERL_ARCHIVE} ||= $self->catfile($self->{PERL_SRC},"$shr.$Config{'dlext'}");
 
     $self->{PERL_ARCHIVE_AFTER} ||= '';
 }