X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FRoute%2FNode.pm;h=ee1c9140ca3facb8a5dad741d8c8ace4f3ab1ec8;hb=3d7b8f73c5a0a75fddfcc701a9c790ea3339a950;hp=00e410713354bfde7db1f7a909144a86be0ca070;hpb=314a26e98d3c3e6a717a9f66ead3ed91cce09ea5;p=spider.git

diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm
index 00e41071..ee1c9140 100644
--- a/perl/Route/Node.pm
+++ b/perl/Route/Node.pm
@@ -246,6 +246,7 @@ sub new
 	$self->{users} = [];
 	$self->{nodes} = [];
 	$self->{lastid} = {};
+	$self->reset_obs;			# by definition
 	
 	$list{$call} = $self;
 	
@@ -308,6 +309,7 @@ sub dec_obs
 {
 	my $self = shift;
 	$self->{obscount}--;
+	return $self->{obscount};
 }
 
 sub reset_obs