Shorten command length when generating linker options file.
authorCraig A. Berry <craigberry@mac.com>
Sat, 20 Oct 2012 02:38:04 +0000 (21:38 -0500)
committerCraig A. Berry <craigberry@mac.com>
Sat, 20 Oct 2012 18:38:10 +0000 (13:38 -0500)
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.

vms/descrip_mms.template

index acdb2e8..ee32629 100644 (file)
@@ -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;*