diff options
| author | Larry Wall <lwall@netlabs.com> | 1995-03-12 22:32:14 -0800 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1995-03-12 22:32:14 -0800 |
| commit | 748a93069b3d16374a9859d1456065dd3ae11394 (patch) | |
| tree | 308ca14de9933a313dceacce8be77db67d9368c7 /vms/test.com | |
| parent | fec02dd38faf8f83471b031857d89cb76fea1ca0 (diff) | |
| download | perl-748a93069b3d16374a9859d1456065dd3ae11394.tar.gz | |
Perl 5.001perl-5.001
[See the Changes file for a list of changes]
Diffstat (limited to 'vms/test.com')
| -rw-r--r-- | vms/test.com | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/vms/test.com b/vms/test.com index 3e42a11474..a23245057f 100644 --- a/vms/test.com +++ b/vms/test.com @@ -6,7 +6,12 @@ $ $! A little basic setup $ On Error Then Goto wrapup $ olddef = F$Environment("Default") -$ Set Default Perl_Root:[t] +$ If F$TrnLNm("Perl_Root").nes."" +$ Then +$ Set Default Perl_Root:[t] +$ Else +$ Set Default [.t] +$ EndIf $ $! Pick up a copy of perl to use for the tests $ Delete/Log/NoConfirm Perl.;* @@ -56,7 +61,7 @@ $ Macro/NoDebug/Object=Echo.Obj Sys$Input .end echo $ Link/NoTrace Echo.Obj; $ Delete/Log/NoConfirm Echo.Obj;* -$ echo = "$Perl_Root:[T]Echo.Exe" +$ echo = "$" + F$Parse("Echo.Exe") $ $! And do it $ MCR Sys$Disk:[]Perl. |