try to gather more info on disappearing nodes

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

diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm
index 00e410713354bfde7db1f7a909144a86be0ca070..ee1c9140ca3facb8a5dad741d8c8ace4f3ab1ec8 100644 (file)
--- 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