X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXProt.pm;h=d3b39cb32097963b2ba0da0023b54fef9df8505b;hp=d6a81ec4328ff0e4d8db67eda6010474df64bca2;hb=ffaa3ab68ea631b0a7b3c3767883141a74daa8fe;hpb=980b697bd47c8f575b1c9a7f01f9b01adc6746bd

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index d6a81ec4..d3b39cb3 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -957,6 +957,7 @@ sub normal
 		}
 
 		if (($pcno >= 28 && $pcno <= 33) || $pcno == 40 || $pcno == 42 || $pcno == 49) { # mail/file handling
+			return if $pcno == 49 && eph_dup($line);
 			if ($pcno == 49 || $field[1] eq $main::mycall) {
 				DXMsg::process($self, $line);
 			} else {