route the right thing in the user portion of PC16

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 9c04497680673939c3fc8ca9ac6c3e520e932ed8..ab989c8f3ccf404cec3397006c3b4727919ca8d3 100644 (file)
--- 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);
                                }