X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=ab989c8f3ccf404cec3397006c3b4727919ca8d3;hb=001dbdaacb48c621aca406ba9d7c2c17388dee8c;hp=9c04497680673939c3fc8ca9ac6c3e520e932ed8;hpb=171f9837d8bb99d05c2b3bb87066d25d448eabd3;p=spider.git

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);
 				}