From d2e14e92b056ee6d648d3ad16f3f3b32293cc629 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 10 Jun 2001 00:28:16 +0000
Subject: [PATCH] fix transient PC41

---
 perl/DXProt.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.43.0