From: minima <minima>
Date: Thu, 14 Jun 2001 22:40:35 +0000 (+0000)
Subject: improve PC19 handling
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=877fab7416e9545aeae5b9880246262bc92be650;p=spider.git

improve PC19 handling
---

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index d5e886e5..3767145c 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -648,22 +648,21 @@ sub normal
 				# update it if required
 				my $r = Route::Node::get($call);
 				my $flags = Route::here($here)|Route::conf($conf);
-				if ($parent->call eq $call && ($parent->version ne $ver || $parent->flags != $flags)) {
-					$parent->version($ver);
-					$parent->flags($flags);
-					push @rout, $parent;
-				} elsif ($r) {
-					my $ar = $parent->add($r);
-					push @rout, $ar if $ar;
+				if ($r) {
+					my $ar;
+					if ($call ne $parent->call) {
+						$ar = $parent->add($r);
+						push @rout, $ar if $ar;
+					}
 					if ($r->version ne $ver || $r->flags != $flags) {
 						$r->version($ver);
 						$r->flags(Route::here($here)|Route::conf($conf));
 						push @rout, $r unless $ar;
 					}
-				} elsif ($parent->call ne $call) {
+				} else {
 					next if $call eq $main::mycall || $call eq $self->{call};
 					
-					my $new = Route::Node->new($call, $ver, Route::here($here)|Route::conf($conf));
+					my $new = $parent->new($call, $ver, Route::here($here)|Route::conf($conf));
 				    if ($self->in_filter_route($new)) {
 						$parent->add($new);
 						push @rout, $new;