diff options
Diffstat (limited to 'vms')
-rw-r--r-- | vms/test.com | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/vms/test.com b/vms/test.com index 302dbf5d9a..266ba160a7 100644 --- a/vms/test.com +++ b/vms/test.com @@ -98,9 +98,10 @@ $ $! And do it $ Show Process/Accounting $ testdir = "Directory/NoHead/NoTrail/Column=1" -$ oldshr = F$TrnLNm("''dbg'PerlShr","LNM$PROCESS") +$ oldshr = F$TrnLNm("''dbg'PerlShr") +$ PerlShr_filespec = f$parse("Sys$Disk:[-]''dbg'PerlShr''exe'") $ If F$Length(oldshr).ne.0 Then Write Sys$Error "Superseding ''dbg'PerlShr . . ." -$ Define 'dbg'Perlshr Sys$Disk:[-]'dbg'PerlShr'exe' +$ Define 'dbg'Perlshr 'PerlShr_filespec' $ MCR Sys$Disk:[]Perl. "-I[-.lib]" - "''p3'" "''p4'" "''p5'" "''p6'" $ Deck/Dollar=$$END-OF-TEST$$ # $RCSfile: TEST,v $$Revision: 4.1 $$Date: 92/08/07 18:27:00 $ |