From 9392cc93cca60220a2c8e390e716cddc2807f177 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Sun, 24 Jun 2007 01:47:37 +0100 Subject: [PATCH] target eph_dup better --- perl/DXProtHandle.pm | 5 +++++ perl/Version.pm | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index f3209c18..06649f67 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -1689,6 +1689,11 @@ sub handle_93 } } + # this is catch loops caused by bad software ... + if (eph_dup("PC93|$from|$text|$onode")) { + return; + } + # if this is a 'bad spotter' user then ignore it my $nossid = $from; $nossid =~ s/-\d+$//; diff --git a/perl/Version.pm b/perl/Version.pm index ab37af1e..efb02c13 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.54'; $subversion = '0'; -$build = '81'; +$build = '82'; 1; -- 2.43.0