From 06cf9f2244555177b4aaf31d090552fee45be42f Mon Sep 17 00:00:00 2001 From: Ryan Voots Date: Fri, 12 Mar 2010 15:57:26 -0500 Subject: [PATCH] fixed a substitution bug --- plugins/factoids.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/plugins/factoids.pm b/plugins/factoids.pm index 9c2ff26..ba89c87 100644 --- a/plugins/factoids.pm +++ b/plugins/factoids.pm @@ -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/;