summaryrefslogtreecommitdiff
path: root/vms
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2007-12-10 05:45:22 +0000
committerCraig A. Berry <craigberry@mac.com>2007-12-10 05:45:22 +0000
commitc43a0d1c08263915bcac804cc40b350d03a1b68f (patch)
treef36a596616d51de16954b56d7a8641f879cc235e /vms
parent7c884029b172785f91952c288d2d0025cb0fbf1b (diff)
downloadperl-c43a0d1c08263915bcac804cc40b350d03a1b68f.tar.gz
Fix uninitialized pointer bug in VMS version of readdir() when
case preservation feature is enabled. p4raw-id: //depot/perl@32603
Diffstat (limited to 'vms')
-rw-r--r--vms/vms.c11
1 files changed, 4 insertions, 7 deletions
diff --git a/vms/vms.c b/vms/vms.c
index d19ffabbc0..a579d37ff4 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -9602,16 +9602,13 @@ Perl_readdir(pTHX_ DIR *dd)
}
dd->count++;
/* Force the buffer to end with a NUL, and downcase name to match C convention. */
+ buff[res.dsc$w_length] = '\0';
+ p = buff + res.dsc$w_length;
+ while (--p >= buff) if (!isspace(*p)) break;
+ *p = '\0';
if (!decc_efs_case_preserve) {
- buff[VMS_MAXRSS - 1] = '\0';
for (p = buff; *p; p++) *p = _tolower(*p);
}
- else {
- /* we don't want to force to lowercase, just null terminate */
- buff[res.dsc$w_length] = '\0';
- }
- while (--p >= buff) if (!isspace(*p)) break; /* Do we really need this? */
- *p = '\0';
/* Skip any directory component and just copy the name. */
sts = vms_split_path