diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-01-29 16:51:29 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-30 18:37:18 +0000 |
| commit | 746380c873d0626f12eeb18479b90569181310dc (patch) | |
| tree | e5b1d48835a6bf291cc43a135049d4f947c8163a /vms/test.com | |
| parent | 18f7acf9faf31fce7abe270746233ffc605127e2 (diff) | |
| download | perl-746380c873d0626f12eeb18479b90569181310dc.tar.gz | |
protect VMS test harness from chdir switcheroo
Message-Id: <p04330101b69bef0ebab4@[172.16.52.1]>
p4raw-id: //depot/perl@8618
Diffstat (limited to 'vms/test.com')
| -rw-r--r-- | vms/test.com | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/vms/test.com b/vms/test.com index 8b93f5b28d..6fae18dba5 100644 --- a/vms/test.com +++ b/vms/test.com @@ -98,7 +98,8 @@ $ $! And do it $ Show Process/Accounting $ testdir = "Directory/NoHead/NoTrail/Column=1" -$ Define 'dbg'Perlshr Sys$Disk:[-]'dbg'PerlShr'exe' +$ PerlShr_filespec = f$parse("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 $ |