diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-03-26 06:15:21 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-26 22:11:17 +0000 |
| commit | 1f5d76b278c27042e165bfe1509977a2765de939 (patch) | |
| tree | 39c0a288d98bf6e2235b6f8374fe11acc46cc6f0 /vms | |
| parent | a92ae87826b31fa92b185c928fb28a63f22e4d21 (diff) | |
| download | perl-1f5d76b278c27042e165bfe1509977a2765de939.tar.gz | |
safety check for vms/test.com
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <5.1.0.14.2.20020326121340.02b46c50@exchi01>
p4raw-id: //depot/perl@15532
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/test.com | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/test.com b/vms/test.com index 1a3bee40de..6dbed1f671 100644 --- a/vms/test.com +++ b/vms/test.com @@ -49,7 +49,7 @@ $ If F$Search("VMSPIPE.COM").nes."" then Delete/Log/Noconfirm VMSPIPE.COM;* $ Copy/Log/NoConfirm [-]VMSPIPE.COM [] $! $! This may be set for the C compiler in descrip.mms, but it confuses the File::Find tests -$ DeAssign sys +$ if f$trnlnm("sys") .nes. "" then DeAssign sys $! $! And do it $ Show Process/Accounting |