{
my $self = shift;
my @rout;
- foreach my $u (${$self->{users}}) {
+ foreach my $u (@{$self->{users}}) {
my $uref = Route::User::get($u);
push @rout, $self->del_user($uref) if $uref;
}
confess "already have $call in $pkg" if $list{$call};
my $self = $pkg->SUPER::new($call);
- $self->{dxchan} = ref $pkg ? [ $pkg->{call} ] : [ ];
+ $self->{dxchan} = [ ];
$self->{version} = shift || 5000;
$self->{flags} = shift || Route::here(1);
$self->{users} = [];