fix eph regex

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 6550f90885edb2289b3a18c04bbe991cbad7d00f..09c00b26502ff8de7b3edabd54a25e23e3b6a834 100644 (file)
--- 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;