X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute%2FUser.pm;h=0cd170299f482243af45b801d767376d48d6bdda;hb=b7512d7880245203710b640c2def9a102f069983;hp=de24f906ef7155059c112743d8b5024e75a0b98b;hpb=67e8ed5e4e28a5af4cec3bc1b43ce97ef51c90be;p=spider.git

diff --git a/perl/Route/User.pm b/perl/Route/User.pm
index de24f906..0cd17029 100644
--- a/perl/Route/User.pm
+++ b/perl/Route/User.pm
@@ -54,6 +54,7 @@ sub new
 	$self->{flags} = $flags || Route::here(1);
 	$self->{ip} = $ip if defined $ip;
 	$list{$call} = $self;
+	dbg("CLUSTER: user $call added") if isdbg('cluster');
 
 	return $self;
 }
@@ -67,9 +68,11 @@ sub del
 {
 	my $self = shift;
 	my $pref = shift;
+	my $call = $self->{call};
 	$self->delparent($pref);
 	unless (@{$self->{parent}}) {
-		delete $list{$self->{call}};
+		delete $list{$call};
+		dbg("CLUSTER: user $call deleted") if isdbg('cluster');
 		return $self;
 	}
 	return undef;