Change 34478 by [EMAIL PROTECTED] on 2008/10/14 12:17:11
Integrate:
[ 34477]
Integrate:
[ 34053]
Fix off-by-one error in sanity check in my_fclose wrapper on VMS.
Affected files ...
... //depot/maint-5.8/perl/vms/vms.c#36 integrate
Differences ...
==== //depot/maint-5.8/perl/vms/vms.c#36 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#35~33478~ 2008-03-11 10:49:23.000000000 -0700
+++ perl/vms/vms.c 2008-10-14 05:17:11.000000000 -0700
@@ -7000,7 +7000,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.
