summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRobert Newson <rnewson@apache.org>2011-02-02 10:26:43 +0000
committerRobert Newson <rnewson@apache.org>2011-02-02 10:26:43 +0000
commit8fe7d459e535acdb1f2975532b6f1248f5089596 (patch)
treed271b134c6bcdd774a4d25c3f3fd43bee14453dc
parent4fb3c75f3db7b8a4bec28e9f0369e63cce52753b (diff)
fix clause warning introduced with COUCHDB-969
git-svn-id: https://svn.apache.org/repos/asf/couchdb/branches/1.1.x@1066404 13f79535-47bb-0310-9956-ffa450edef68
-rw-r--r--src/couchdb/couch_httpd_auth.erl2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/couchdb/couch_httpd_auth.erl b/src/couchdb/couch_httpd_auth.erl
index 2111c009..1639624a 100644
--- a/src/couchdb/couch_httpd_auth.erl
+++ b/src/couchdb/couch_httpd_auth.erl
@@ -53,7 +53,7 @@ basic_name_pw(Req) ->
nil;
[User, Pass] ->
{User, Pass};
- [User | Pass] ->
+ [User | Pass] when is_list(Pass) ->
{User, string:join(Pass, ":")};
[User] ->
{User, ""};