From: minima Date: Sat, 9 Jun 2001 18:28:53 +0000 (+0000) Subject: fix eph regex X-Git-Url: http://dxcluster.net/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;