if (ref $pkg) {
$call = $pkg->{call} unless $call;
return undef unless $call;
- confess "changing $pkg->{call} to $call" if exists $pkg->{call} && $call ne $pkg->{call};
+ dbg('connll', "changing $pkg->{call} to $call") if exists $pkg->{call} && $call ne $pkg->{call};
+ delete $conns{$pkg->{call}} if $pkg->{call} ne $call;
$pkg->{call} = $call;
$ref = $conns{$call} = $pkg;
dbg('connll', "Connection $pkg->{cnum} $call stored");
my ($pkg, $pid) = @_;
my @pid = grep {$_->{pid} == $pid} values %conns;
- for (@pid) {
- &{$_->{eproc}}($_, "$pid has gorn") if exists $_->{eproc};
- $_->disconnect;
+ foreach my $p (@pid) {
+ &{$p->{eproc}}($p, "$pid has gorn") if exists $p->{eproc};
+ $p->disconnect;
}
}
# close all clients (this is for forking really)
sub close_all_clients
{
- for (values %conns) {
- $_->disconnect;
+ foreach my $conn (values %conns) {
+ $conn->disconnect;
}
}