summaryrefslogtreecommitdiff
path: root/vms
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2012-05-25 17:16:20 -0500
committerCraig A. Berry <craigberry@mac.com>2012-05-25 17:16:20 -0500
commit7202b047897d0a863b6c4d0c69f5b78a4c4074b6 (patch)
tree717ec74399f4789d794bf2caa01d8a7e5912a89a /vms
parent417a992d4dc78be79e44d19e029d9742d0334128 (diff)
downloadperl-7202b047897d0a863b6c4d0c69f5b78a4c4074b6.tar.gz
Fix varying string struct for VMS's home-grown glob.
We were only using 4K, not 64K, and we were requesting longword alignment but not providing a struct size that was a multiple of 4.
Diffstat (limited to 'vms')
-rw-r--r--vms/vms.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/vms/vms.c b/vms/vms.c
index eda8c30874..cee83bb9df 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -196,7 +196,8 @@ struct filescan_itmlst_2 {
struct vs_str_st {
unsigned short length;
- char str[65536];
+ char str[VMS_MAXRSS];
+ unsigned short pad; /* for longword struct alignment */
};
#ifdef __DECC