diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-07-01 08:52:36 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-07-01 18:35:37 +0000 |
| commit | 139df077ffa36254d586cd69d83c541e39755ed5 (patch) | |
| tree | 7ca3ccc6edbba2c0cd7a3f2996310c691b3a5e2e /vms/test.com | |
| parent | 52f3c1af8670f243c94919af003c622c61f1ce6f (diff) | |
| download | perl-139df077ffa36254d586cd69d83c541e39755ed5.tar.gz | |
more dangerous logical name warnings for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <5.1.1.5.0.20020701130645.01aa8258@exchi01>
p4raw-id: //depot/perl@17394
Diffstat (limited to 'vms/test.com')
| -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 3c4ce9339d..aedcc92601 100644 --- a/vms/test.com +++ b/vms/test.com @@ -64,7 +64,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 -$ if f$trnlnm("sys") .nes. "" then DeAssign sys +$ if f$trnlnm("sys") .nes. "" then Define sys " " $! $! And do it $ Set Message /NoFacility/NoSeverity/NoIdentification/NoText |