From eff277e0e1631227f5811d6fb8480d19593513dd Mon Sep 17 00:00:00 2001
From: Sam Talcott <sambtalcott@gmail.com>
Date: Sat, 14 Dec 2024 07:44:01 -0500
Subject: [PATCH] Fixed windows casing bug on setting credentials

---
 R/backend-wincred.R | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/R/backend-wincred.R b/R/backend-wincred.R
index e6988e2..d347a20 100644
--- a/R/backend-wincred.R
+++ b/R/backend-wincred.R
@@ -356,6 +356,14 @@ b_wincred_set_with_raw_value <- function(self, private, service,
 
   keyring <- keyring %||% private$keyring
   target <- b_wincred_target(keyring, service, username)
+
+  # Check for mis-cased target
+  stored <- b_wincred_i_enumerate("*")
+  if ((!target %in% stored) && (tolower(target) %in% tolower(stored))) {
+    # Automatically update case
+    target <- stored[tolower(stored) == tolower(target)]
+  }
+
   if (is.null(keyring)) {
     b_wincred_i_set(target, password, username = username)
     return(invisible(self))