GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-10-03 01:48:38 +02:00
Code Issues Projects Releases Wiki Activity

Factoids: expand_factoid_vars(): special-case Perl's $a and $b, etc

Browse Source
This commit is contained in:
Pragmatic Software 2020-06-12 18:57:01 -07:00
parent 85d887ff5c
commit b3ca5e69cd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PBot/Factoids.pm
View File

@ -765,8 +765,8 @@ sub expand_factoid_vars {
$extract_method = 'regex';
}
if ($var =~ /^(?:_.*|nick|channel|randomnick|arglen|args|arg\[.+\])$/i) {
# skip identifiers with leading underscore and special variables
if ($var =~ /^(?:_.*|\d+|a|b|nick|channel|randomnick|arglen|args|arg\[.+\])$/i) {
# skip identifiers with leading underscores, etc
$result .= $extract_method eq 'bracket' ? '${' . $var . '}' : '$' . $var;
next;
}