From 001dbdaacb48c621aca406ba9d7c2c17388dee8c Mon Sep 17 00:00:00 2001
From: minima <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.34.1