From 4311d6662da03e643b6a29e70791a81dc76f14a7 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Fri, 19 Jan 2018 10:46:15 -0800
Subject: [PATCH] Factoids: Preserve case of indefinite article in expansions

---
 PBot/Factoids.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/PBot/Factoids.pm b/PBot/Factoids.pm
index c7439dae..3d4e04c1 100644
--- a/PBot/Factoids.pm
+++ b/PBot/Factoids.pm
@@ -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]/;