diff options
| author | Craig A. Berry <craigberry@mac.com> | 2012-10-19 21:38:04 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2012-10-20 13:38:10 -0500 |
| commit | b3ecbfd38f4ef2dab1907a9460a7cc16dddd97cd (patch) | |
| tree | aa35af7317ce4b38fe5e29dac929b5abb9bac150 /vms/descrip_mms.template | |
| parent | bc9f67ba0a974b35820929c6cd1939147ac92bc6 (diff) | |
| download | perl-b3ecbfd38f4ef2dab1907a9460a7cc16dddd97cd.tar.gz | |
Shorten command length when generating linker options file.
The MINIPERL macro expands to 40 characters longer than the
MINIPERLQ macro in order to include Cwd, but Cwd isn't needed
when doing a simple one-liner, and the extra length can make us
exceed the command buffer on older VMS systems.
Diffstat (limited to 'vms/descrip_mms.template')
| -rw-r--r-- | vms/descrip_mms.template | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template index acdb2e80d0..ee32629ab3 100644 --- a/vms/descrip_mms.template +++ b/vms/descrip_mms.template @@ -417,8 +417,8 @@ generate_uudmap$(O) : generate_uudmap.c mg_raw.h # The song and dance with gen_shrfls.opt accommodates DCL's line length limit. $(DBG)perlshr_xtras.ts : perl.h config.h vmsish.h proto.h [.vms]gen_shrfls.pl $(MINIPERL_EXE) $(MAKEFILE) $(CRTL) @ $(MINIPERL) makedef.pl "PLATFORM=vms" > makedef.lis - @ $(MINIPERL) -e "print join('|',@ARGV),'|';" "$(CC)$(CFLAGS)" >gen_shrfls.opt - @ $(MINIPERL) -e "print join('|',@ARGV);" "$(O)" "$(DBG)" "$(OLB)" "$(EXT)" "$(CRTL)" >>gen_shrfls.opt + @ $(MINIPERLQ) -e "print join('|',@ARGV),'|';" "$(CC)$(CFLAGS)" >gen_shrfls.opt + @ $(MINIPERLQ) -e "print join('|',@ARGV);" "$(O)" "$(DBG)" "$(OLB)" "$(EXT)" "$(CRTL)" >>gen_shrfls.opt $(MINIPERL) [.vms]gen_shrfls.pl -f gen_shrfls.opt @ Delete/NoLog/NoConfirm gen_shrfls.opt; @ If F$Search("$(DBG)perlshr_xtras.ts").nes."" Then Delete/NoLog/NoConfirm $(DBG)perlshr_xtras.ts;* |