From 6eda7e9f183cad745376970203207ecb23e60c80 Mon Sep 17 00:00:00 2001
From: Ryan Voots <simcop2387@simcop2387.info>
Date: Fri, 12 Mar 2010 17:32:22 -0500
Subject: [PATCH] remove the \ on \$ when substituting

---
 plugins/factoids.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/plugins/factoids.pm b/plugins/factoids.pm
index eebb508..2b8f719 100644
--- a/plugins/factoids.pm
+++ b/plugins/factoids.pm
@@ -343,6 +343,7 @@ sub _fact_substitute
 			my @caps = map {substr($pred, $-[$_], $+[$_] - $-[$_])} 1..$#+;
 			my $realsubst = $subst;
 			$realsubst =~ s/(?<!\\)\$(?:\{(\d+)\}|(\d+))/$caps[$1-1]/eg;
+			$realsubst =~ s/\\(?=\$)//g;
 			
 			substr $pred, $matchstart, $matchend-$matchstart, $realsubst;
 			pos $pred = $matchstart+length($realsubst); #set the new position, might have an off by one?
@@ -359,6 +360,7 @@ sub _fact_substitute
 			my @caps = map {substr($pred, $-[$_], $+[$_] - $-[$_])} 1..$#+;
 			my $realsubst = $subst;
 			$realsubst =~ s/(?<!\\)\$(?:\{(\d+)\}|(\d+))/$caps[$1-1]/eg;
+			$realsubst =~ s/\\(?=\$)//g;
 			
 			$pred =~ s/$regex/$realsubst/;
 		}