Change 34477 by [EMAIL PROTECTED] on 2008/10/14 07:11:27
Integrate:
[ 34053]
Fix off-by-one error in sanity check in my_fclose wrapper on VMS.
Affected files ...
... //depot/maint-5.10/perl/vms/vms.c#6 integrate
Differences ...
==== //depot/maint-5.10/perl/vms/vms.c#6 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#5~33893~ 2008-05-20 16:11:00.000000000 -0700
+++ perl/vms/vms.c 2008-10-14 00:11:27.000000000 -0700
@@ -10364,7 +10364,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.
