Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 15:45:42 -04:00
Code Issues Releases Wiki Activity

wtf?

Browse source
This commit is contained in:
Ryan Voots 2010-03-12 16:34:59 -05:00
parent 2feaf8bfde
commit 46dbde2776
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

@ -345,7 +345,7 @@ sub _fact_substitute
$realsubst =~ s/\$(\d+)/$caps[$1-1]/eg; $realsubst =~ s/\$(\d+)/$caps[$1-1]/eg;
substr $pred, $matchstart, $matchend-$matchstart, $realsubst; substr $pred, $matchstart, $matchend-$matchstart, $realsubst;
pos $pred = $matchstart+length($realsubst); #set the new position, might have an off by one? pos $pred = $matchstart+length($realsubst)-1; #set the new position, might have an off by one?
} }
return "G:$regex:$flags:$match:$subst:".$pred; return "G:$regex:$flags:$match:$subst:".$pred;