X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute%2FNode.pm;fp=perl%2FRoute%2FNode.pm;h=3c0feb4ba32f527fedd97b7321fbb13757fe6840;hb=b9ac5347cb32b8511a9cec13ef89c14683df995e;hp=6f8de6dee1ca0431d37ef25c757877fc67e3a797;hpb=9a31104f31ce5d80a659dea3de9dbf9a5d46ef8e;p=spider.git

diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm
index 6f8de6de..3c0feb4b 100644
--- 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} = [];