diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2001-02-08 20:49:00 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2001-02-08 20:49:00 +0000 |
| commit | b82d478d407f1381d69179104035c975c1d1402e (patch) | |
| tree | 1bb5fad4dd5cb2ccc6d9fc113687e78505032993 /vms | |
| parent | 847a5fae45dac396d0f9e1bb61d5b4ff9d94cdcd (diff) | |
| download | perl-b82d478d407f1381d69179104035c975c1d1402e.tar.gz | |
SYN SYN
p4raw-id: //depot/vmsperl@8718
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 $ |