This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix varying string struct for VMS's home-grown glob.
[perl5.git] / 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