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

remove the \ on \$ when substituting

Browse source
This commit is contained in:
Ryan Voots 2010-03-12 17:32:22 -05:00
parent d170d67001
commit 6eda7e9f18
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
plugins/factoids.pm
View file

@ -343,6 +343,7 @@ sub _fact_substitute
my @caps = map {substr($pred, $-[$_], $+[$_] - $-[$_])} 1..$#+; my @caps = map {substr($pred, $-[$_], $+[$_] - $-[$_])} 1..$#+;
my $realsubst = $subst; my $realsubst = $subst;
$realsubst =~ s/(?<!\\)\$(?:\{(\d+)\}|(\d+))/$caps[$1-1]/eg; $realsubst =~ s/(?<!\\)\$(?:\{(\d+)\}|(\d+))/$caps[$1-1]/eg;
$realsubst =~ s/\\(?=\$)//g;
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); #set the new position, might have an off by one?
@ -359,6 +360,7 @@ sub _fact_substitute
my @caps = map {substr($pred, $-[$_], $+[$_] - $-[$_])} 1..$#+; my @caps = map {substr($pred, $-[$_], $+[$_] - $-[$_])} 1..$#+;
my $realsubst = $subst; my $realsubst = $subst;
$realsubst =~ s/(?<!\\)\$(?:\{(\d+)\}|(\d+))/$caps[$1-1]/eg; $realsubst =~ s/(?<!\\)\$(?:\{(\d+)\}|(\d+))/$caps[$1-1]/eg;
$realsubst =~ s/\\(?=\$)//g;
$pred =~ s/$regex/$realsubst/; $pred =~ s/$regex/$realsubst/;
} }