From: minima <minima>
Date: Sun, 19 Jan 2003 17:35:12 +0000 (+0000)
Subject: route the right thing in the user portion of PC16
X-Git-Tag: PRE-1-52~80
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=001dbdaacb48c621aca406ba9d7c2c17388dee8c;p=spider.git

route the right thing in the user portion of PC16
---

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 9c044976..ab989c8f 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -729,13 +729,12 @@ sub normal
 				my $flags = Route::here($here)|Route::conf($conf);
 				
 				if ($r) {
-					my @add;
-					push @add, $r->addparent($parent);					
+					my $au = $r->addparent($parent);					
 					if ($r->flags != $flags) {
 						$r->flags($flags);
-						push @add, $r unless @add;
+						$au = $r;
 					}
-					push @rout, @add;
+					push @rout, $r if $au;
 				} else {
 					push @rout, $parent->add_user($call, $flags);
 				}