Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-09 01:25:41 -04:00
Code Issues Releases Wiki Activity

think i found it

Browse source
This commit is contained in:
Ryan Voots 2010-03-12 16:38:23 -05:00
parent 46dbde2776
commit 558fe19599
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
plugins/factoids.pm
View file

@ -336,7 +336,7 @@ sub _fact_substitute
{ {
my $regex = $flags=~/i/ ? qr/(?i:$match)/i : qr/$match/; my $regex = $flags=~/i/ ? qr/(?i:$match)/i : qr/$match/;
while ($pred =~ /\G$regex/g) while ($pred =~ /$regex/g)
{ {
my $matchedstring = substr($pred, $-[0], $+[0] - $-[0]); my $matchedstring = substr($pred, $-[0], $+[0] - $-[0]);
my ($matchstart, $matchend) = ($-[0], $+[0]); my ($matchstart, $matchend) = ($-[0], $+[0]);