add missing clear/route command

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 01adbc7d5174850c7120eca7a45888e147a4a47f..fc08f5423649450372262ac068a072d5d2bebdf9 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -610,11 +610,7 @@ sub normal
 
                        # first clear out any nodes on this dxchannel
                        my $parent = Route::Node::get($self->{call});
-                       my @rout;
-                       for ($parent->nodes) {
-                               my $r = Route::Node::get($_);
-                               push @rout, $r->del_node if $r;
-                       }
+                       my @rout = $parent->del_nodes;
                        $self->route_pc21(@rout, $parent);
                        $self->send_local_config();
                        $self->send(pc20());
@@ -913,10 +909,13 @@ sub normal
                        $user->put;
                        my $ref = Route::get($call);
                        $self->route_pc41($ref, $call, $field[2], $field[3], $field[4]) if $ref && !eph_dup($line);
+                       return;
                }
+
                if ($pcno == 43) {
                        last SWITCH;
                }
+
                if ($pcno == 37 || $pcno == 44 || $pcno == 45 || $pcno == 46 || $pcno == 47 || $pcno == 48) {
                        DXDb::process($self, $line);
                        return;