From d491ec44ddeb21146694280f4540991759b556b3 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 17 Aug 2001 01:03:27 +0000 Subject: [PATCH] try this way --- perl/DXProt.pm | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 0f8aaebf..ced5b4f0 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -887,12 +887,6 @@ sub normal my $ref = Route::get($call) || Route->new($call); return unless $self->in_filter_route($ref); - # dup check it - if (eph_dup($line)) { - dbg("PCPROT: ephemeral PC41 dup dropped") if isdbg('chanerr'); - return; - } - # add this station to the user database, if required my $user = DXUser->get_current($call); $user = DXUser->new($call) if !$user; @@ -1829,7 +1823,7 @@ sub eph_dup my $s = shift; # chop the end off - $s =~ s/\^H\d\d?\^?~?$//; + $s =~ s/\^H\d\d?\^?\~?$//; return 1 if exists $eph{$s}; $eph{$s} = $main::systime; return undef; -- 2.43.0