]> dxcluster.org Git - spider.git/commitdiff
fix eph regex
authorminima <minima>
Sat, 9 Jun 2001 18:28:53 +0000 (18:28 +0000)
committerminima <minima>
Sat, 9 Jun 2001 18:28:53 +0000 (18:28 +0000)
perl/DXProt.pm

index 6550f90885edb2289b3a18c04bbe991cbad7d00f..09c00b26502ff8de7b3edabd54a25e23e3b6a834 100644 (file)
@@ -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;