diff options
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. |