X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXProt.pm;h=09c00b26502ff8de7b3edabd54a25e23e3b6a834;hb=95a03441d20680a914673d1b6bbf46c0d673ad4c;hp=6550f90885edb2289b3a18c04bbe991cbad7d00f;hpb=2edc1b59ddce231771947ff0f31adbae015ff6c7;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 6550f908..09c00b26 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1768,7 +1768,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;