summaryrefslogtreecommitdiff
path: root/vms
diff options
context:
space:
mode:
authorHans Mulder <hansmu@xs4all.nl>1998-03-18 01:36:32 -0800
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>1998-04-02 14:26:52 +0000
commit640cc98602a3b588e5db3488f51ab69f380b72f1 (patch)
treef89f87e984c483b7a31135246573880b389cb926 /vms
parentc6ed36e16dcdd4c25349e4f9d5c84061095ccffb (diff)
downloadperl-640cc98602a3b588e5db3488f51ab69f380b72f1.tar.gz
5.004_63 picky compiler fixes [PATCH]
Date: Wed, 18 Mar 1998 09:36:32 -0800 Subject: [PATCH 5.004_63] Fix function prototype with long doubles Date: Wed, 18 Mar 1998 14:48:19 -0800 p4raw-id: //depot/perl@843
Diffstat (limited to 'vms')
-rw-r--r--vms/vms.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/vms.c b/vms/vms.c
index 1183a835b7..91ec8af4c0 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -2441,7 +2441,7 @@ trim_unixpath(char *fspec, char *wildspec, int opts)
for (front = end ; front >= base; front--)
if (*front == '/' && !dirs--) { front++; break; }
}
- for (cp1=template,cp2=lcres; *cp1 && cp2 <= lcend + sizeof lcend;
+ for (cp1=template,cp2=lcres; *cp1;
cp1++,cp2++) *cp2 = _tolower(*cp1); /* Make lc copy for match */
if (cp1 != '\0') return 0; /* Path too long. */
lcend = cp2;