diff options
author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1997-03-07 04:01:12 +1200 |
---|---|---|
committer | Chip Salzenberg <chip@atlantic.net> | 1997-03-07 04:01:12 +1200 |
commit | 2ae324a7ad5d4e616e757c311984fd86d5857ddd (patch) | |
tree | 6cf53ad504c2bded7498b6ca70d77e536d03ab7f /lib/ExtUtils/MM_VMS.pm | |
parent | 651159bc74695f653cfb486793f878de6956d77c (diff) | |
download | perl-2ae324a7ad5d4e616e757c311984fd86d5857ddd.tar.gz |
[inseparable changes from match from perl-5.003_92 to perl-5.003_93]
BUILD PROCESS
Subject: Fix for Unisys UNIX and libperl.so
Date: Thu, 6 Mar 97 16:28 GMT0
From: Alan Burlison <aburlison@cix.compulink.co.uk>
Files: Configure
Msg-ID: memo.147328@cix.compulink.co.uk
(applied based on p5p patch as commit 2f525a329506abe067c4ec9d4c7ae13d8b223081)
Subject: Allow './Configure -Uoptimize'
Date: Thu, 06 Mar 1997 11:15:47 -0500 (EST)
From: Andy Dougherty <doughera@fractal.phys.lafayette.edu>
Files: Configure
Msg-ID: Pine.SOL.3.95q.970306110532.11070A-100000@fractal.lafayette.
(applied based on p5p patch as commit 59ae47780c168857b216412f8354d10ae6dd0b61)
Subject: Use 'test -f', not 'test -x'
Date: Fri, 7 Mar 1997 19:53:00 -0500
From: Spider Boardman <spider@web.zk3.dec.com>
Files: Configure
Msg-ID: 199703080053.TAA13943@web.zk3.dec.com
(applied based on p5p patch as commit 64b4562546c4e74f87c21f65a76ec05e96a1b74f)
CORE LANGUAGE CHANGES
Subject: Don't autovivify array and hash elements in sub parameters
Date: Thu, 06 Mar 1997 14:12:09 -0500
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: op.c pod/perldelta.pod pod/perlsub.pod pod/perltrap.pod
Msg-ID: 199703061912.OAA20606@aatma.engin.umich.edu
(applied based on p5p patch as commit 0ffc6623ceb5acc7b954e8cdbaeb8ba319474d7b)
Subject: Support READ and GETC for tied handles
Date: Sat, 08 Mar 1997 19:19:38 -0500
From: Doug MacEachern <dougm@opengroup.org>
Files: pod/perldelta.pod pod/perltie.pod pp_sys.c t/op/misc.t
Msg-ID: 199703090019.TAA32591@postman.osf.org
(applied based on p5p patch as commit b06b64f805517c26cbd7c4d2f74efd5f36b4692c)
Subject: Warn on C<@x =~ /a/> and C<%x =~ s/a/b/>
From: Chip Salzenberg <chip@perl.com>
Files: op.c pod/perldiag.pod
CORE PORTABILITY
Subject: VMS update
Date: Fri, 07 Mar 1997 22:49:46 -0500 (EST)
From: Charles Bailey <bailey@HMIVAX.HUMGEN.UPENN.EDU>
Files: lib/ExtUtils/MM_VMS.pm vms/descrip.mms vms/gen_shrfls.pl vms/sockadapt.h
private-msgid: 01IG8KN5R28M00661G@hmivax.humgen.upenn.edu
DOCUMENTATION
Subject: Consolidated INSTALL updates since _92
Date: Sat, 08 Mar 1997 13:21:22 -0500 (EST)
From: Andy Dougherty <doughera@fractal.phys.lafayette.edu>
Files:
Msg-ID: Pine.SOL.3.95q.970308131806.23766F-100000@fractal.lafayette.
(applied based on p5p patch as commit e6834c60cd85866fc530e8b4bb831af6186bad4d)
Subject: PODs corrections
Date: Fri, 7 Mar 1997 21:53:04 -0500 (EST)
From: Ilya Zakharevich <ilya@math.ohio-state.edu>
Files: ext/DB_File/DB_File.pm ext/Socket/Socket.pm lib/Class/Template.pm lib/ExtUtils/Embed.pm lib/ExtUtils/MM_VMS.pm lib/ExtUtils/Mksymlists.pm lib/File/Basename.pm lib/File/stat.pm lib/Time/gmtime.pm lib/Time/localtime.pm lib/Time/tm.pm lib/User/grent.pm lib/User/pwent.pm pod/perlcall.pod pod/perldebug.pod pod/perlfunc.pod pod/perlguts.pod pod/perllocale.pod pod/perlop.pod pod/perlsub.pod
Msg-ID: 199703080253.VAA24975@monk.mps.ohio-state.edu
(applied based on p5p patch as commit 72451f4af0d31f24ef5b12bc5d034e3e8b35d43d)
OTHER CORE CHANGES
Subject: Fix imbalanced ENTER/LEAVE from C<BEGIN{die}>
From: Chip Salzenberg <chip@perl.com>
Files: op.c perl.c proto.h
Subject: perl -P path patch
Date: Sat, 08 Mar 1997 12:45:08 -0500 (EST)
From: Andy Dougherty <doughera@fractal.phys.lafayette.edu>
Files: config_H config_h.SH perl.c plan9/config.plan9 t/comp/cpp.t vms/config.vms win32/config.H
Msg-ID: Pine.SOL.3.95q.970308120242.23766D-100000@fractal.lafayette.
(applied based on p5p patch as commit bba014945c609b5474f61f5e82ed2ff3e83a6e47)
Diffstat (limited to 'lib/ExtUtils/MM_VMS.pm')
-rw-r--r-- | lib/ExtUtils/MM_VMS.pm | 22 |
1 files changed, 18 insertions, 4 deletions
diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm index aca41ea371..0e2897c1ad 100644 --- a/lib/ExtUtils/MM_VMS.pm +++ b/lib/ExtUtils/MM_VMS.pm @@ -36,6 +36,8 @@ the semantics. =head2 Methods always loaded +=over + =item eliminate_macros Expands MM[KS]/Make macros in a text string, using the contents of @@ -312,6 +314,7 @@ sub ext { ExtUtils::Liblist::ext(@_); } +=back =head2 SelfLoaded methods @@ -321,6 +324,8 @@ For overridden methods, documentation is limited to an explanation of why this method overrides the MM_Unix method; see the ExtUtils::MM_Unix documentation for more details. +=over + =item guess_name (override) Try to determine name of extension being built. We begin with the name @@ -1111,12 +1116,17 @@ default MM_Unix method. sub dist { my($self, %attribs) = @_; $attribs{VERSION} ||= $self->{VERSION_SYM}; + $attribs{NAME} ||= $self->{DISTNAME}; $attribs{ZIPFLAGS} ||= '-Vu'; $attribs{COMPRESS} ||= 'gzip'; $attribs{SUFFIX} ||= '-gz'; $attribs{SHAR} ||= 'vms_share'; $attribs{DIST_DEFAULT} ||= 'zipdist'; + # Sanitize these for use in $(DISTVNAME) filespec + $attribs{VERSION} =~ s/[^\w\$]/_/g; + $attribs{NAME} =~ s/[^\w\$]/_/g; + return ExtUtils::MM_Unix::dist($self,%attribs); } @@ -1745,28 +1755,28 @@ sub dist_core { my($self) = @_; q[ dist : $(DIST_DEFAULT) - $(NOECHO) $(PERL) -le "print 'Warning: $m older than $vf' if -e ($vf = '$(VERSION_FROM)') && -M $vf < -M ($m = '$(MAKEFILE)'" + $(NOECHO) $(PERL) -le "print 'Warning: $m older than $vf' if -e ($vf = '$(VERSION_FROM)') && -M $vf < -M ($m = '$(MAKEFILE)')" zipdist : $(DISTVNAME).zip $(NOECHO) $(NOOP) $(DISTVNAME).zip : distdir $(PREOP) - $(ZIP) "$(ZIPFLAGS)" $(MMS$TARGET) $(SRC) + $(ZIP) "$(ZIPFLAGS)" $(MMS$TARGET) [.$(DISTVNAME)...]*.*; $(RM_RF) $(DISTVNAME) $(POSTOP) $(DISTVNAME).tar$(SUFFIX) : distdir $(PREOP) $(TO_UNIX) - $(TAR) "$(TARFLAGS)" $(DISTVNAME).tar $(SRC) + $(TAR) "$(TARFLAGS)" $(DISTVNAME).tar [.$(DISTVNAME)] $(RM_RF) $(DISTVNAME) $(COMPRESS) $(DISTVNAME).tar $(POSTOP) shdist : distdir $(PREOP) - $(SHARE) $(SRC) $(DISTVNAME).share + $(SHAR) [.$(DISTVNAME...]*.*; $(DISTVNAME).share $(RM_RF) $(DISTVNAME) $(POSTOP) ]; @@ -2353,5 +2363,9 @@ sub nicetext { 1; +=back + +=cut + __END__ |