diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2002-05-28 14:34:55 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-28 22:10:51 +0000 |
| commit | fcc434adc9edf01429e1b54d8366064cc85edf9b (patch) | |
| tree | 18e9112f2ec1d50b5b73139f779c678fca7866f0 /vms/genopt.com | |
| parent | b881518d78374cbb36c0ad56c39aaca9fc97154d (diff) | |
| download | perl-fcc434adc9edf01429e1b54d8366064cc85edf9b.tar.gz | |
small updates to DCL portions of perl kit
Message-ID: <OF23EAAE54.E5DCAD53-ON85256BC7.007B1EA5@55.25.11>
p4raw-id: //depot/perl@16846
Diffstat (limited to 'vms/genopt.com')
| -rw-r--r-- | vms/genopt.com | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vms/genopt.com b/vms/genopt.com index 3d3e5fe5df..77d295f212 100644 --- a/vms/genopt.com +++ b/vms/genopt.com @@ -2,7 +2,7 @@ $! generates options file for vms link $! p1 is filename and mode to open file (filename/write or filename/append) $! p2 is delimiter separating elements of list in p3 $! p3 is list of items to be written, one per line, into options file -$ +$! $ open file 'p1' $ element=0 $loop: @@ -30,7 +30,7 @@ $ endif $ if y .nes. "" then write file y $ element=element+1 $ goto loop -$ +$! $out: $ close file $ exit |