reset obs count on node route on new() (we must have seen it after all)!

diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm
index 00e410713354bfde7db1f7a909144a86be0ca070..514f0c0e5f9157ea10dd76da7ed6e0db896e0cd0 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;