X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXProt.pm;h=dfb571b280c3333d91cc8502090a0659040fab4a;hb=125670de1ca386c044416d59935cfad9e1759c06;hp=5407bb1bd24f96d60affc55ff8975a8b39753cdc;hpb=0063cd3ba6d514ae92a6aaf22472e509eabf7e43;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 5407bb1b..dfb571b2 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -912,11 +912,14 @@ sub normal
 			$user->lastoper($main::systime);   # to cut down on excessive for/opers being generated
 			$user->put;
 			my $ref = Route::get($call);
-			$self->route_pc41($ref, $field[2], $field[3], $field[4]) if $ref && !eph_dup($line);
+			$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;