Improved regular expression.

Author: killme2008

src/clj_http/client.clj

@@ -504,7 +504,7 @@
 (defn detect-charset [content-type]
   (or
    (when-let [found (when content-type
-                            (re-find #"(?i)charset=(.*)" content-type))]
+                            (re-find #"(?i)charset\s*=\s*([^\s]+)" content-type))]
      (second found))
    "UTF-8"))
 

test/clj_http/test/client.clj

@@ -651,4 +651,5 @@
   (is (= "UTF-8"(client/detect-charset "text/html")))
   (is (= "GBK"(client/detect-charset "application/json; charset=GBK")))
   (is (= "ISO-8859-1" (client/detect-charset "application/json; charset=ISO-8859-1")))
+  (is (= "ISO-8859-1" (client/detect-charset "application/json; charset =  ISO-8859-1")))
   (is (= "GB2312" (client/detect-charset "text/html; Charset=GB2312"))))