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

more changes for this, grr

Browse source
This commit is contained in:
Ryan Voots 2010-03-12 16:08:56 -05:00
parent 56ce4462f1
commit 1b9ef7feaf
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
plugins/factoids.pm
View file

@ -346,8 +346,7 @@ sub _fact_substitute
my $realsubst = $subst;
$realsubst =~ s/\$(\d+)/$caps[$1-1]/eg;
$pred =~ s/$match/$realsubst/ unless $flags =~ /i/;
$pred =~ s/$match/$realsubst/i if $flags =~ /i/;
$pred =~ s/$regex/$realsubst/;
return $pred;
}