and a bit more

[spider.git] / perl / Route / Node.pm

diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm
index 6f8de6dee1ca0431d37ef25c757877fc67e3a797..3c0feb4ba32f527fedd97b7321fbb13757fe6840 100644 (file)
--- a/perl/Route/Node.pm
+++ b/perl/Route/Node.pm
@@ -183,7 +183,7 @@ sub unlink_all_users
 {
        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;
        }
@@ -198,7 +198,7 @@ sub new
        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} = [];