From 95a03441d20680a914673d1b6bbf46c0d673ad4c Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 9 Jun 2001 18:28:53 +0000
Subject: [PATCH] fix eph regex

---
 perl/DXProt.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.34.1