target eph_dup better

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index f3209c1866a368f7a9fc591484442e9557450b8a..06649f67afb9d64a5d7d85f7bb8c35d0c461a87a 100644 (file)
--- 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 ab37af1e134d0346094da6de515ce6a4cef8f4ac..efb02c132231f9681c18b79f352e3d98b77bbe62 100644 (file)
--- 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;