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