mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 16:39:36 +00:00
c07a80fdfe
[editor's note: no patch file was found for this release, so no fine-grained changes] I can't find the password for our ftp server, so I had to drop it into ftp://ftp.sems.com/pub/incoming/perl5.002b3.tar.gz, which is a drop directory you can't ls. The current plan is that Andy is gonna whack on this a little more, and then release a gamma in a few days when he's happy with it. So don't get carried away. This is now *late* beta. In other words, have less than the appropriate amount of fun. :-) Larry
22 lines
696 B
Plaintext
22 lines
696 B
Plaintext
$! MAKE_COMMAND.COM
|
|
$! Record MM[SK]/Make parameters in configuration report
|
|
$!
|
|
$! Author: Peter Prymmer <pvhp@lns62.lns.cornell.edu>
|
|
$! Version: 1.0 18-Jan-1996
|
|
$!
|
|
$! DCL usage (choose one):
|
|
$! @MAKE_COMMAND !or
|
|
$! @MAKE_COMMAND/OUTPUT=MYCONFIG.OUT
|
|
$!------------------------------------------------
|
|
$ $mms = "'"+p1
|
|
$ $makeline = p2+" "+p3+" "+p4+" "+p5+" "+p6+" "+p7+" "+p8
|
|
$quotable:
|
|
$ if f$locate("""",$makeline).lt.f$length($makeline)
|
|
$ then
|
|
$ $makeline = $makeline - """"
|
|
$ goto quotable
|
|
$ endif
|
|
$ $makeline = f$edit($makeline,"COMPRESS,TRIM")
|
|
$ write sys$output " make_cmd=''$mms'"+" ''$makeline''"
|
|
$!------------------------------------------------
|