projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2edc1b5
)
fix eph regex
author
minima
<minima>
Sat, 9 Jun 2001 18:28:53 +0000
(18:28 +0000)
committer
minima
<minima>
Sat, 9 Jun 2001 18:28:53 +0000
(18:28 +0000)
perl/DXProt.pm
patch
|
blob
|
history
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;