commit 08e62bb59131d86e3ee28e5a7692bf819596cb21
author Jay Doane <jaydoane@apache.org> Thu Sep 01 11:52:48 2022 -0700
committer Jay Doane <jaydoane@apache.org> Thu Sep 01 13:45:32 2022 -0700
tree b17ad93e6c17ca51859b68a9e0fa76e75af1f18d
parent e674fd5130b65560a9c98cb877a80bdb7753b241

Fix 'Bound variable in pattern' warnings

src/couch/src/couch_httpd_auth.erl

diff --git a/src/couch/src/couch_httpd_auth.erl b/src/couch/src/couch_httpd_auth.erl
index cdb790f..cc02a1e 100644
--- a/src/couch/src/couch_httpd_auth.erl
+++ b/src/couch/src/couch_httpd_auth.erl
@@ -574,7 +574,7 @@
     case couch_util:get_value("username", Form, CouchFormat) of
         undefined ->
             throw({bad_request, <<"request body must contain a username">>});
-        CouchFormat ->
+        Format when Format =:= CouchFormat ->
             CouchFormat;
         Else1 when CouchFormat == undefined ->
             Else1;

src/couch/src/couch_util.erl

diff --git a/src/couch/src/couch_util.erl b/src/couch/src/couch_util.erl
index e916bbc..afce1e0 100644
--- a/src/couch/src/couch_util.erl
+++ b/src/couch/src/couch_util.erl
@@ -256,7 +256,7 @@
 
 get_value(Key, List, Default) ->
     case lists:keysearch(Key, 1, List) of
-        {value, {Key, Value}} ->
+        {value, {K, Value}} when K =:= Key ->
             Value;
         false ->
             Default