In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/984730495a07ed8cbe2958b05c20564fd24321e2?hp=5ec56f72b83ea3eb6d9392f581e43fb8cb33d983>
- Log ----------------------------------------------------------------- commit 984730495a07ed8cbe2958b05c20564fd24321e2 Author: Craig A. Berry <[email protected]> Date: Mon Sep 27 07:23:13 2010 -0500 Don't delete the *previous* perldelta in the clean target on VMS. Since only the current one is copied from perldelta.pod, deleting the previous one makes it disappear completely. M vms/descrip_mms.template commit 72f32173b1326ce77c0e4a8039dc5b8d5bb7228f Author: Craig A. Berry <[email protected]> Date: Mon Sep 27 07:13:20 2010 -0500 Remove redundant function macros from vms/vmsish.h. my_setenv, do_spawn, and do_aspawn are already in embed.h, though they probably weren't when these were originally put in vmsish.h. This change is a required follow-up to e64ca59f2852bc5d0450eea5ed412609a046829d; without it the macro definitions differ in the non-multiplicity case. M vms/vmsish.h ----------------------------------------------------------------------- Summary of changes: vms/descrip_mms.template | 3 +-- vms/vmsish.h | 6 ------ 2 files changed, 1 insertions(+), 8 deletions(-) diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template index 1672dc9..e7bd955 100644 --- a/vms/descrip_mms.template +++ b/vms/descrip_mms.template @@ -451,7 +451,7 @@ pod = $(pod0) $(pod1) $(pod2) $(pod3) $(pod4) $(pod5) $(pod6) $(pod7) $(pod8) $( [.pod]perlintern.pod : embed.fnc autodoc.pl $(MINIPERL_EXE) $(MINIPERL) autodoc.pl -[.pod]perltoc.pod : [.pod]perl5135delta.pod [.pod]perlapi.pod [.pod]perlintern.pod [.pod]perlmodlib.pod extra.pods $(PERL_EXE) +[.pod]perltoc.pod : [.pod]perl5136delta.pod [.pod]perlapi.pod [.pod]perlintern.pod [.pod]perlmodlib.pod extra.pods $(PERL_EXE) @ define/user_mode $(DBG)PERLSHR SYS$DISK:[]$(DBG)perlshr$(E) $(PERL) "-f" [.pod]buildtoc "-q" "--build-toc" @@ -1907,7 +1907,6 @@ clean : tidy cleantest - If F$Search("[.vms.ext...]*.C").nes."" Then Delete/NoConfirm/Log [.vms.ext...]*.C;* - If F$Search("[.vms.ext...]*$(O)").nes."" Then Delete/NoConfirm/Log [.vms.ext...]*$(O);* - If F$Search("[.pod]*.com").nes."" Then Delete/NoConfirm/Log [.pod]*.com;* - - If F$Search("[.pod]perl5135delta.pod").nes."" Then Delete/NoConfirm/Log [.pod]perl5135delta.pod;* - If F$Search("[.pod]perl5136delta.pod").nes."" Then Delete/NoConfirm/Log [.pod]perl5136delta.pod;* - If F$Search("[.pod]perlapi.pod").nes."" Then Delete/NoConfirm/Log [.pod]perlapi.pod;* - If F$Search("[.pod]perlintern.pod").nes."" Then Delete/NoConfirm/Log [.pod]perlintern.pod;* diff --git a/vms/vmsish.h b/vms/vmsish.h index 95ac23b..089fca2 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -138,7 +138,6 @@ #define my_getenv_len Perl_my_getenv_len #define vmssetenv Perl_vmssetenv #define my_trnlnm Perl_my_trnlnm -#define my_setenv Perl_my_setenv #define my_getenv Perl_my_getenv #define tounixspec Perl_tounixspec #define tounixspec_ts Perl_tounixspec_ts @@ -178,12 +177,10 @@ #define my_utime Perl_my_utime #define my_chdir Perl_my_chdir #define my_chmod Perl_my_chmod -#define do_aspawn Perl_do_aspawn #define seekdir Perl_seekdir #define my_gmtime Perl_my_gmtime #define my_localtime Perl_my_localtime #define my_time Perl_my_time -#define do_spawn Perl_do_spawn #define flex_fstat Perl_flex_fstat #define flex_stat Perl_flex_stat #define flex_lstat Perl_flex_lstat @@ -199,7 +196,6 @@ #define my_trnlnm(a,b,c) Perl_my_trnlnm(aTHX_ a,b,c) #define fileify_dirspec(a,b) Perl_fileify_dirspec(aTHX_ a,b) #define fileify_dirspec_ts(a,b) Perl_fileify_dirspec_ts(aTHX_ a,b) -#define my_setenv(a,b) Perl_my_setenv(aTHX_ a,b) #define my_getenv(a,b) Perl_my_getenv(aTHX_ a,b) #define tounixspec(a,b) Perl_tounixspec_utf8(aTHX_ a,b,NULL) #define tounixspec_ts(a,b) Perl_tounixspec_utf8_ts(aTHX_ a,b,NULL) @@ -243,12 +239,10 @@ #define my_utime(a,b) Perl_my_utime(aTHX_ a,b) #define my_chdir(a) Perl_my_chdir(aTHX_ a) #define my_chmod(a,b) Perl_my_chmod(aTHX_ a,b) -#define do_aspawn(a,b,c) Perl_do_aspawn(aTHX_ a,b,c) #define seekdir(a,b) Perl_seekdir(aTHX_ a,b) #define my_gmtime(a) Perl_my_gmtime(aTHX_ a) #define my_localtime(a) Perl_my_localtime(aTHX_ a) #define my_time(a) Perl_my_time(aTHX_ a) -#define do_spawn(a) Perl_do_spawn(aTHX_ a) #define flex_fstat(a,b) Perl_flex_fstat(aTHX_ a,b) #define cando_by_name(a,b,c) Perl_cando_by_name(aTHX_ a,b,c) #define flex_stat(a,b) Perl_flex_stat(aTHX_ a,b) -- Perl5 Master Repository
