fix uppercase CLS

intersystems · Nov 11, 2024 · 82e1444 · 82e1444
1 parent 1a55cc8
commit 82e1444
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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(), "%")
             }