From d2e14e92b056ee6d648d3ad16f3f3b32293cc629 Mon Sep 17 00:00:00 2001 From: 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