Re: sudden features [FIX]
[email protected] (Joshua N Pritikin)
| Newsgroups | perl.loop |
|---|---|
| Message-ID | <[email protected]> |
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