This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Shorten command length when generating linker options file.
[perl5.git] / 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;*