From: minima <minima>
Date: Sun, 10 Jun 2001 00:28:16 +0000 (+0000)
Subject: fix transient PC41
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=d2e14e92b056ee6d648d3ad16f3f3b32293cc629;p=spider.git

fix transient PC41
---

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 5407bb1b..01adbc7d 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -912,7 +912,7 @@ 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);
 		}
 		if ($pcno == 43) {
 			last SWITCH;