projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
f848867
)
slight change to the checking for announces
author
minima
<minima>
Tue, 22 Aug 2000 22:18:40 +0000
(22:18 +0000)
committer
minima
<minima>
Tue, 22 Aug 2000 22:18:40 +0000
(22:18 +0000)
perl/AnnTalk.pm
patch
|
blob
|
history
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/AnnTalk.pm
b/perl/AnnTalk.pm
index a6032363ac5e7cf5d847a288e36ed4f64bcd952f..911c2724ed021d3d03c15331bc8d6238fd362155 100644
(file)
--- a/
perl/AnnTalk.pm
+++ b/
perl/AnnTalk.pm
@@
-28,7
+28,7
@@
sub dup
chomp $text;
unpad($text);
$text = substr($text, 0, $duplth) if length $text > $duplth;
- my $dupkey = "$
call|$
to|$text";
+ my $dupkey = "$to|$text";
return 1 if exists $dup{$dupkey};
$dup{$dupkey} = $d; # in seconds (to the nearest minute)
return 0;
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 2e22bc91132f1355e39f9311f4744f0605bd9679..0970833217c61bc8913d0c134177651966c8e3cb 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-53,7
+53,7
@@
$baddxfn = "$main::data/baddx.pl";
(
[ qw(c c m p bc c) ], # pc10
[ qw(f m d t m c c h) ], # pc11
- [ qw(c bc m bp
c p h) ],
# pc12
+ [ qw(c bc m bp
bm p h) ],
# pc12
[ qw(c h) ], #
[ qw(c h) ], #
[ qw(c m h) ], #