diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-11-04 21:43:10 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-11-04 21:43:10 +0000 |
commit | a7d1454b4299cd00e3e854ace9dde44c66a3c06a (patch) | |
tree | 905cc58b63a1668870112f4b8c6463fac042ee30 /lib/ExtUtils/MM_VMS.pm | |
parent | 8ee276f395d4f9dd37add3f06a414b9925af5591 (diff) | |
download | perl-a7d1454b4299cd00e3e854ace9dde44c66a3c06a.tar.gz |
Upgrade to ExtUtils::MakeMaker 6.19
p4raw-id: //depot/perl@21652
Diffstat (limited to 'lib/ExtUtils/MM_VMS.pm')
-rw-r--r-- | lib/ExtUtils/MM_VMS.pm | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm index a21a0d9b3a..2b2f50d97b 100644 --- a/lib/ExtUtils/MM_VMS.pm +++ b/lib/ExtUtils/MM_VMS.pm @@ -20,8 +20,8 @@ BEGIN { use File::Basename; use vars qw($Revision @ISA $VERSION); -($VERSION) = '5.70'; -($Revision) = q$Revision: 1.110 $ =~ /Revision:\s+(\S+)/; +($VERSION) = '5.71'; +($Revision) = q$Revision: 1.113 $ =~ /Revision:\s+(\S+)/; require ExtUtils::MM_Any; require ExtUtils::MM_Unix; @@ -1006,13 +1006,12 @@ INST_DYNAMIC_DEP = $inst_dynamic_dep "; push @m, ' -$(INST_DYNAMIC) : $(INST_STATIC) $(PERL_INC)perlshr_attr.opt $(INST_ARCHAUTODIR)$(DIRFILESEP).exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(INST_DYNAMIC_DEP) +$(INST_DYNAMIC) : $(INST_STATIC) $(PERL_INC)perlshr_attr.opt blibdirs $(EXPORT_LIST) $(PERL_ARCHIVE) $(INST_DYNAMIC_DEP) $(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR) If F$TrnLNm("',$shr,'").eqs."" Then Define/NoLog/User ',"$shr Sys\$Share:$shr.$Config{'dlext'}",' Link $(LDFLAGS) /Shareable=$(MMS$TARGET)$(OTHERLDFLAGS) $(BASEEXT).opt/Option,$(PERL_INC)perlshr_attr.opt/Option '; - push @m, $self->dir_target('$(INST_ARCHAUTODIR)'); join('',@m); } @@ -1033,13 +1032,13 @@ BOOTSTRAP = '."$self->{BASEEXT}.bs".' # As MakeMaker mkbootstrap might not write a file (if none is required) # we use touch to prevent make continually trying to remake it. # The DynaLoader only reads a non-empty file. -$(BOOTSTRAP) : $(FIRST_MAKEFILE) '."$self->{BOOTDEP}".' $(INST_ARCHAUTODIR)$(DIRFILESEP).exists +$(BOOTSTRAP) : $(FIRST_MAKEFILE) '."$self->{BOOTDEP}".' blibdirs $(NOECHO) $(ECHO) "Running mkbootstrap for $(NAME) ($(BSLOADLIBS))" $(NOECHO) $(PERLRUN) - -e "use ExtUtils::Mkbootstrap; Mkbootstrap(\'$(BASEEXT)\',\'$(BSLOADLIBS)\');" $(NOECHO) $(TOUCH) $(MMS$TARGET) -$(INST_BOOT) : $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DIRFILESEP).exists +$(INST_BOOT) : $(BOOTSTRAP) blibdirs $(NOECHO) $(RM_RF) $(INST_BOOT) - $(CP) $(BOOTSTRAP) $(INST_BOOT) '; @@ -1063,7 +1062,7 @@ $(INST_STATIC) : my(@m,$lib); push @m,' # Rely on suffix rule for update action -$(OBJECT) : $(INST_ARCHAUTODIR)$(DIRFILESEP).exists +$(OBJECT) : blibdirs $(INST_STATIC) : $(OBJECT) $(MYEXTLIB) '; @@ -1086,7 +1085,6 @@ $(INST_STATIC) : $(OBJECT) $(MYEXTLIB) foreach $lib (split ' ', $self->{EXTRALIBS}) { push(@m,"\t",'$(NOECHO) $(PERL) -e "print qq{',$lib,'\n}" >>$(INST_ARCHAUTODIR)extralibs.ld',"\n"); } - push @m, $self->dir_target('$(INST_ARCHAUTODIR)'); join('',@m); } @@ -1172,10 +1170,10 @@ realclean :: } $todir = $self->fixpath($todir,1); push @m, " -$to : $from \$(FIRST_MAKEFILE) ${todir}\$(DIRFILESEP).exists +$to : $from \$(FIRST_MAKEFILE) blibdirs \$(CP) $from $to -", $self->dir_target($todir); +"; } join "", @m; } @@ -1238,13 +1236,13 @@ clean :: clean_subdirs } } push(@otherfiles, qw[ blib $(MAKE_APERL_FILE) - perlmain.c pm_to_blib pm_to_blib.ts ]); + perlmain.c blibdirs pm_to_blib pm_to_blib.ts ]); push(@otherfiles, $self->catfile('$(INST_ARCHAUTODIR)','extralibs.all')); push(@otherfiles, $self->catfile('$(INST_ARCHAUTODIR)','extralibs.ld')); # Occasionally files are repeated several times from different sources { my(%of) = map { ($_ => 1) } @otherfiles; @otherfiles = keys %of; } - + my $line = ''; foreach my $file (@otherfiles) { $file = $self->fixpath($file); @@ -2045,6 +2043,9 @@ sub prefixify { print STDERR " no Config found for $var.\n" if $Verbose >= 2; $path = $self->_prefixify_default($rprefix, $default); } + elsif( !$self->{ARGS}{PREFIX} || !$self->file_name_is_absolute($path) ) { + # do nothing if there's no prefix or if its relative + } elsif( $sprefix eq $rprefix ) { print STDERR " no new prefix.\n" if $Verbose >= 2; } |