diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-28 07:18:41 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-28 07:18:41 +0000 |
| commit | 23724483b0ae0f947e5099eec2b292e01c1fb958 (patch) | |
| tree | fb55b15e2f875f46f7a7104f65ba1d78385aace3 /vms | |
| parent | 171891c7de2a25b7626882db944adf5e0875b2ba (diff) | |
| download | perl-23724483b0ae0f947e5099eec2b292e01c1fb958.tar.gz | |
VMS test harness tweak (from Jesper Naur <jesper.naur@post.tele.dk>)
p4raw-id: //depot/perl@6129
Diffstat (limited to 'vms')
| -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 a040427d5c..4f345cec0e 100644 --- a/vms/test.com +++ b/vms/test.com @@ -93,7 +93,7 @@ $ $! And do it $ Show Process/Accounting $ testdir = "Directory/NoHead/NoTrail/Column=1" -$ Define/User 'dbg'Perlshr Sys$Disk:[-]'dbg'PerlShr'exe' +$ Define 'dbg'Perlshr Sys$Disk:[-]'dbg'PerlShr'exe' $ 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 $ @@ -240,6 +240,7 @@ print sprintf("u=%g s=%g cu=%g cs=%g files=%d tests=%d\n", $user,$sys,$cuser,$csys,$files,$totmax); $$END-OF-TEST$$ $ wrapup: +$ deassign 'dbg'Perlshr $ Show Process/Accounting $ If F$Search("Echo.Exe").nes."" Then Delete/Log/NoConfirm Echo.Exe;* $ Set Default &olddef |