X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAnnTalk.pm;h=ee7ea51570164916e925f08f34eb24c79dae46ee;hb=refs%2Fheads%2Fnewdisc;hp=6d47726420f9cab730555853303429bd93367c44;hpb=2110beabbe4a0c22fbab1ce4f68bec6b94db0ae4;p=spider.git diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm index 6d477264..ee7ea515 100644 --- a/perl/AnnTalk.pm +++ b/perl/AnnTalk.pm @@ -66,6 +66,7 @@ sub is_talk_candidate { my ($from, $text) = @_; my $call; + ($call) = $text =~ /^\s*(?:[Xx]|[Tt][Oo]?:?)\s+([\w-]+)/; ($call) = $text =~ /^\s*>\s*([\w-]+)\b/ unless $call; ($call) = $text =~ /^\s*([\w-]+):?\b/ unless $call;