From: minima Date: Sun, 10 Jun 2001 00:32:21 +0000 (+0000) Subject: add missing return on end of pc41 processing X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=20c965763d3341e97e09f608f1419a933df1d742;p=spider.git add missing return on end of pc41 processing --- diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 01adbc7d..dfb571b2 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -913,10 +913,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;