From 001dbdaacb48c621aca406ba9d7c2c17388dee8c Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 19 Jan 2003 17:35:12 +0000 Subject: [PATCH] route the right thing in the user portion of PC16 --- perl/DXProt.pm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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); } -- 2.43.0