svn commit: r1066401 - /couchdb/trunk/src/couchdb/couch_httpd_auth.erl

[rnewson]

Author: rnewson
Date: Wed Feb  2 10:25:56 2011
New Revision: 1066401

URL: http://svn.apache.org/viewvc?rev=1066401&view=rev
Log:
fix clause warning introduced with COUCHDB-969

Modified:
    couchdb/trunk/src/couchdb/couch_httpd_auth.erl

Modified: couchdb/trunk/src/couchdb/couch_httpd_auth.erl
URL: 
http://svn.apache.org/viewvc/couchdb/trunk/src/couchdb/couch_httpd_auth.erl?rev=1066401&r1=1066400&r2=1066401&view=diff
==============================================================================
--- couchdb/trunk/src/couchdb/couch_httpd_auth.erl (original)
+++ couchdb/trunk/src/couchdb/couch_httpd_auth.erl Wed Feb  2 10:25:56 2011
@@ -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, ""};