D'oh!
==== //depot/D/Event/ChangeLog#132 - /cache/D/Event/ChangeLog ====
--- /tmp/tmp.17785.0 Wed Feb 9 12:32:32 2000
+++ /cache/D/Event/ChangeLog Wed Feb 9 12:32:24 2000
@@ -1,5 +1,7 @@
2000-02-09 Joshua Pritikin <[EMAIL PROTECTED]>
+ * Fix bomb in group watchers. ([EMAIL PROTECTED])
+
* Fixed another bug introduced in 0.61. (Insure++)
* Tighten typemap.
==== //depot/D/Event/c/group.c#1 - /cache/D/Event/c/group.c ====
--- /tmp/tmp.17785.1 Wed Feb 9 12:32:32 2000
+++ /cache/D/Event/c/group.c Wed Feb 9 12:29:57 2000
@@ -95,6 +95,7 @@
if (!ok) { /* expand array */
pe_watcher **ary;
EvNew(13, ary, gp->members*2, pe_watcher*);
+ Zero(ary, gp->members*2, pe_watcher*);
Copy(gp->member, ary, gp->members, sizeof(pe_watcher*));
EvFree(13, gp->member);
gp->member = ary;
==== //depot/D/Event/t/group.t#1 - /cache/D/Event/t/group.t ====
--- /tmp/tmp.17785.2 Wed Feb 9 12:32:32 2000
+++ /cache/D/Event/t/group.t Wed Feb 9 12:25:20 2000
@@ -16,4 +16,8 @@
eval { $gp->add($gp) };
ok $@, '/itself/';
+for (1..10) {
+ $gp->add(Event->timer(after => 5, cb => \&die));
+}
+
# need more tests here! XXX
--
"Never ascribe to malice that which can be explained by stupidity."
via, but not speaking for Deutsche Bank
