]> granicus.if.org Git - ejabberd/commitdiff
Fix some case clauses
authorEvgeniy Khramtsov <ekhramtsov@process-one.net>
Mon, 5 Sep 2011 05:35:46 +0000 (15:35 +1000)
committerEvgeniy Khramtsov <ekhramtsov@process-one.net>
Mon, 5 Sep 2011 05:35:46 +0000 (15:35 +1000)
src/cyrsasl_scram.erl

index e3d63e6126fff48fd36e612b095de98a98616a28..2cd14635363a487e2e0fbb9679807f2939c7c18a 100644 (file)
@@ -55,6 +55,8 @@ mech_step(#state{step = 2} = State, ClientIn) ->
        case string:tokens(ClientIn, ",") of
        [CBind, UserNameAttribute, ClientNonceAttribute] when (CBind == "y") or (CBind == "n") ->
                case parse_attribute(UserNameAttribute) of
+                {error, Reason} ->
+                       {error, Reason};
                {_, EscapedUserName} ->
                        case unescape_username(EscapedUserName) of
                        error ->
@@ -89,11 +91,7 @@ mech_step(#state{step = 2} = State, ClientIn) ->
                                _Else ->
                                        {error, "not-supported"}
                                end
-                       end;
-               {error, Reason} ->
-                       {error, Reason};
-               _Else ->
-                       {error, "bad-protocol"}
+                       end
                end;
        _Else ->
            {error, "bad-protocol"}
@@ -145,12 +143,8 @@ parse_attribute(Attribute) ->
                        true ->
                                if
                                SecondChar == $= ->
-                                       case string:substr(Attribute, 3) of
-                                       String when is_list(String) ->
-                                               {lists:nth(1, Attribute), String};
-                                       _Else ->
-                                               {error, "bad-format failed"}
-                                       end;
+                                       String = string:substr(Attribute, 3),
+                                        {lists:nth(1, Attribute), String};
                                true ->
                                        {error, "bad-format second char not equal sign"}
                                end;