Fix varying string struct for VMS's home-grown glob.

[perl5.git] / vms / vms.c

diff --git a/vms/vms.c b/vms/vms.c
index eda8c30..cee83bb 100644 (file)
--- 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