From: Dirk Koopman <djk@tobit.co.uk>
Date: Sun, 24 Jun 2007 00:47:37 +0000 (+0100)
Subject: target eph_dup better
X-Git-Tag: 1.55~133
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=9392cc93cca60220a2c8e390e716cddc2807f177

target eph_dup better
---

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;