Revision history for Perl extension POE::XS::Queue::Array.
+0.005 unreleased
+ - extra tests to distinguish errno problems from P::X::Q:A bugs,
+ possibly leading to a workaround
+ https://rt.cpan.org/Ticket/Display.html?id=35044
+
0.004 Wed Apr 9 2008
- include license information in appropriate places
- fix @ISA, it was badly broken, thanks to Yuval Kogman (nothingmuch)
void *buf;
if (size < 0) {
- fprintf(stderr, "Attempt to allocate size %d\n", size);
+ fprintf(stderr, "Attempt to allocate size %d\n", (int)size);
exit(3);
}
if ( (buf = malloc(size)) == NULL ) {
- mm_log((1, "mymalloc: unable to malloc %d\n", size));
- fprintf(stderr,"Unable to malloc %d.\n", size); exit(3);
+ mm_log((1, "mymalloc: unable to malloc %d\n", (int)size));
+ fprintf(stderr,"Unable to malloc %d.\n", (int)size); exit(3);
}
- mm_log((1, "mymalloc(size %d) -> %p\n", size, buf));
+ mm_log((1, "mymalloc(size %d) -> %p\n", (int)size, buf));
return buf;
}
exit(1);\r
}\r
}\r
+\r
+/*\r
+pq__set_errno_queue - set errno\r
+\r
+This just sets errno for testing purposes.\r
+*/\r
+void\r
+pq__set_errno_queue(int value) {\r
+ errno = value;\r
+}\r
+\r
extern void pq_dump(poe_queue *pq);\r
extern void pq_verify(poe_queue *pq);\r
\r
+extern void\r
+pq__set_errno_queue(int value);\r
+\r
#endif\r