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

fixed a substitution bug

Browse source
This commit is contained in:
Ryan Voots 2010-03-12 15:57:26 -05:00
parent 4f9d29d75a
commit 06cf9f2244
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

@ -344,7 +344,7 @@ sub _fact_substitute
{
my @caps = map {substr($pred, $-[$_], $+[$_] - $-[$_])} 1..$#+;
my $realsubst = $subst;
$realsubst =~ s/\$(\d+)/$caps[$1]/eg;
$realsubst =~ s/\$(\d+)/$caps[$1-1]/eg;
$pred =~ s/$match/$realsubst/;