From 106cf7f9635ff6aa71c9c5314b136a0f3ee86a72 Mon Sep 17 00:00:00 2001
From: Alexey Shchepin <alexey@process-one.net>
Date: Tue, 21 Aug 2007 22:28:41 +0000
Subject: * src/jlib.erl: Use http_base_64:decode if available

SVN Revision: 883
---
 src/jlib.erl | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src')

diff --git a/src/jlib.erl b/src/jlib.erl
index 74369cf22..af1fcabad 100644
--- a/src/jlib.erl
+++ b/src/jlib.erl
@@ -566,6 +566,14 @@ check_list(List) ->
 %
 
 decode_base64(S) ->
+    case catch http_base_64:decode(S) of
+	{'EXIT', _Err} ->
+	    decode_base64_old(S);
+	Res ->
+	    Res
+    end.
+
+decode_base64_old(S) ->
     decode1_base64([C || C <- S,
 			 C /= $ ,
 			 C /= $\t,
-- 
cgit v1.2.3