From 82e1444721109c55224034bc6c91fad599d95a89 Mon Sep 17 00:00:00 2001
From: Elijah Tamarchenko <etamarch@intersystems.com>
Date: Mon, 11 Nov 2024 11:13:10 -0500
Subject: [PATCH] fix uppercase CLS

---
 cls/SourceControl/Git/Utils.cls | 1 +
 1 file changed, 1 insertion(+)

diff --git a/cls/SourceControl/Git/Utils.cls b/cls/SourceControl/Git/Utils.cls
index fbad8d9b..3aff626b 100644
--- a/cls/SourceControl/Git/Utils.cls
+++ b/cls/SourceControl/Git/Utils.cls
@@ -2504,6 +2504,7 @@ ClassMethod NameToInternalName(Name, IgnorePercent = 1, IgnoreNonexistent = 1, V
         if (InternalName="") {
             //take our best guess based on the document extension mapped to that subdirectory
             set nam=$piece(nam,".",1,*-1)
+            set fileExt = $ZCONVERT(fileExt, "l")
             if (fileExt = "cls" || fileExt = "rtn" || fileExt = "inc") {
                 set nam=$replace(nam, ..PercentClassReplace(), "%")
             }