--- AnyEvent-Fork-Pool/Pool.pm 2014/10/26 16:22:38 1.14 +++ AnyEvent-Fork-Pool/Pool.pm 2014/10/27 22:24:52 1.15 @@ -96,7 +96,7 @@ my $magic0 = ':t6Z@HK1N%Dx@_7?=~-7NQgWDdAs6a,jFN=wLO0*jD*1%P'; my $magic1 = '<~53rexz.U`!]X[A235^"fyEoiTF\T~oH1l/N6+Djep9b~bI9`\1x%B~vWO1q*'; -our $VERSION = 1.1; +our $VERSION = 1.2; =item my $pool = AnyEvent::Fork::Pool::run $fork, $function, [key => value...] @@ -399,7 +399,9 @@ } } } elsif ($shutdown) { - @pool = (); + undef $_->[2] + for @pool; + undef $start_w; undef $start_worker; # frees $destroy_guard reference