From 8b0819119ce858887cfb7ccdebf60b98faa955c8 Mon Sep 17 00:00:00 2001
From: MikeMaximus <mseiferling@gmail.com>
Date: Sat, 16 Mar 2019 21:36:30 -0600
Subject: [PATCH] Added support for mixed case and short names #151

---
 GBM/Managers/mgrPath.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/GBM/Managers/mgrPath.vb b/GBM/Managers/mgrPath.vb
index 8dbee84..b80d245 100644
--- a/GBM/Managers/mgrPath.vb
+++ b/GBM/Managers/mgrPath.vb
@@ -486,9 +486,9 @@ Public Class mgrPath
     End Function
 
     Public Shared Function IsSupportedRegistryPath(ByVal sPath As String) As Boolean
-        If sPath.StartsWith("HKEY_CURRENT_USER") Then
+        If sPath.ToUpper.StartsWith("HKEY_CURRENT_USER\") Or sPath.ToUpper.StartsWith("HKCU\") Then
             Return True
-        ElseIf sPath.StartsWith("HKEY_LOCAL_MACHINE") Then
+        ElseIf sPath.ToUpper.StartsWith("HKEY_LOCAL_MACHINE\") Or sPath.ToUpper.StartsWith("HKLM\") Then
             Return True
         End If