X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXProt.pm;h=460e401a0099b6a9b7f7cc711ffbf33e1116d4c8;hb=27a5024df2116aeca11014d767fdb5f027d89b07;hp=fb6ba02a66dc8e1a805f7e23ecfdd68706e692a6;hpb=e514a048764b07970b03e490b560de73c2489902;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index fb6ba02a..460e401a 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -559,10 +559,13 @@ sub normal
 				my $r = Route::User::get($call);
 				my $flags = Route::here($here)|Route::conf($conf);
 				
-				if ($r && $r->flags != $flags) {
-					$r->flags($flags);
-					push @rout, $r;
-				} elsif (!$r) {
+				if ($r) {
+					if ($r->flags != $flags) {
+						$r->flags($flags);
+						push @rout, $r;
+					}
+					$r->addparent($ncall);
+				} else {
 					push @rout, $parent->add_user($call, $flags);
 				}