Whoops, don't add an $ to $0 expansion, use $0 in factoids and $$0 for factoid variables instead

This commit is contained in:
Pragmatic Software 2017-08-27 20:40:15 -07:00
parent a6e495352f
commit 25e104732e
1 changed files with 1 additions and 1 deletions

View File

@ -379,7 +379,7 @@ sub expand_factoid_vars {
while (1) {
last if ++$depth >= 10;
my $matches = 0;
$action =~ s/\$0/\$$root_keyword/g;
$action =~ s/\$0/$root_keyword/g;
my $const_action = $action;
while ($const_action =~ /(\ba\s*|\ban\s*)?(?<!\\)\$([a-zA-Z0-9_:\-#\[\]]+)/gi) {
my ($a, $v) = ($1, $2);