From 775fd16897916dccc374098ba6130b0f8858b636 Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 21 Aug 2001 11:13:55 +0000 Subject: [PATCH] alter the order of auto for/oper in PC11 tests --- perl/DXProt.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index b4be90c0..ab1e7572 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -422,7 +422,7 @@ sub normal my $node; my $to = $user->homenode; my $last = $user->lastoper || 0; - if ($to ne $main::mycall && $send_opernam && $main::systime > $last + $DXUser::lastoperinterval && $to && ($node = Route::Node::get($to)) ) { + if ($send_opernam && $to && $to ne $main::mycall && $main::systime > $last + $DXUser::lastoperinterval && ($node = Route::Node::get($to)) ) { my $cmd = "forward/opernam $spot[4]"; # send the rcmd but we aren't interested in the replies... my $dxchan = $node->dxchan; -- 2.43.0