Fix off-by-one error in sanity check in my_fclose wrapper on VMS.

p4raw-id: //depot/perl@34053

diff --git a/vms/vms.c b/vms/vms.c
index 363212a..73637e7 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -10374,7 +10374,7 @@ int my_fclose(FILE *fp) {
     unsigned int fd = fileno(fp);
     unsigned int fdoff = fd / sizeof(unsigned int);
 
-    if (sockflagsize && fdoff <= sockflagsize)
+    if (sockflagsize && fdoff < sockflagsize)
       sockflags[fdoff] &= ~(1 << fd % sizeof(unsigned int));
   }
   return fclose(fp);