Change 34053 by [EMAIL PROTECTED] on 2008/06/14 00:02:05
Fix off-by-one error in sanity check in my_fclose wrapper on VMS.
Affected files ...
... //depot/perl/vms/vms.c#228 edit
Differences ...
==== //depot/perl/vms/vms.c#228 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#227~33993~ 2008-06-03 05:27:43.000000000 -0700
+++ perl/vms/vms.c 2008-06-13 17:02:05.000000000 -0700
@@ -10374,7 +10374,7 @@
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);
End of Patch.
