summaryrefslogtreecommitdiff
path: root/vms/test.com
diff options
context:
space:
mode:
authorLarry Wall <lwall@scalpel.netlabs.com>1995-11-21 10:01:00 +1200
committerLarry <lwall@scalpel.netlabs.com>1995-11-21 10:01:00 +1200
commit4633a7c4bad06b471d9310620b7fe8ddd158cccd (patch)
tree37ebeb26a64f123784fd8fac6243b124767243b0 /vms/test.com
parent8e07c86ebc651fe92eb7e3b25f801f57cfb8dd6f (diff)
downloadperl-4633a7c4bad06b471d9310620b7fe8ddd158cccd.tar.gz
5.002 beta 1
If you're adventurous, have a look at ftp://ftp.sems.com/pub/outgoing/perl5.0/perl5.002beta1.tar.gz Many thanks to Andy for doing the integration. Obviously, if you consult the bugs database, you'll note there are still plenty of buglets that need fixing, and several enhancements that I've intended to put in still haven't made it in (Hi, Tim and Ilya). But I think it'll be pretty stable. And you can start to fiddle around with prototypes (which are, of course, still totally undocumented). Packrats, don't worry too much about readvertising this widely. Nowadays we're on a T1 here, so our bandwidth is okay. Have the appropriate amount of jollity. Larry
Diffstat (limited to 'vms/test.com')
-rw-r--r--vms/test.com10
1 files changed, 2 insertions, 8 deletions
diff --git a/vms/test.com b/vms/test.com
index a23245057f..43034a5cc9 100644
--- a/vms/test.com
+++ b/vms/test.com
@@ -5,13 +5,7 @@ $! Charles Bailey bailey@genetics.upenn.edu
$
$! A little basic setup
$ On Error Then Goto wrapup
-$ olddef = F$Environment("Default")
-$ If F$TrnLNm("Perl_Root").nes.""
-$ Then
-$ Set Default Perl_Root:[t]
-$ Else
-$ Set Default [.t]
-$ EndIf
+$ Set Default [.t]
$
$! Pick up a copy of perl to use for the tests
$ Delete/Log/NoConfirm Perl.;*
@@ -185,5 +179,5 @@ print sprintf("u=%g s=%g cu=%g cs=%g files=%d tests=%d\n",
$$END-OF-TEST$$
$ wrapup:
$ If F$Search("Echo.Exe").nes."" Then Delete/Log/NoConfirm Echo.Exe;*
-$ Set Default &olddef
+$ Set Default [-]
$ Exit