From: minima <minima>
Date: Sat, 9 Jun 2001 18:28:53 +0000 (+0000)
Subject: fix eph regex
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=95a03441d20680a914673d1b6bbf46c0d673ad4c;p=spider.git

fix eph regex
---

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;