Factoids: Preserve case of indefinite article in expansions

This commit is contained in:
Pragmatic Software 2018-01-19 10:46:15 -08:00
parent 2b0deffc1c
commit 4311d6662d
1 changed files with 1 additions and 0 deletions

View File

@ -477,6 +477,7 @@ sub expand_factoid_vars {
if ($a) {
my $fixed_a = select_indefinite_article $mylist[$line];
$fixed_a = ucfirst $fixed_a if $a =~ m/^A/;
$action =~ s/$a\$$v$modifier/$fixed_a $mylist[$line]/;
} else {
$action =~ s/\$$v$modifier/$mylist[$line]/;