From eb709715f44e09d1c25c2ed47f11f44137166e00 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Fri, 25 Jan 2013 12:41:37 +0100
Subject: [inets] Appup test suite now handles version REs

---
 lib/inets/test/inets_appup_test.erl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'lib/inets')

diff --git a/lib/inets/test/inets_appup_test.erl b/lib/inets/test/inets_appup_test.erl
index 7ed237243e..648e373312 100644
--- a/lib/inets/test/inets_appup_test.erl
+++ b/lib/inets/test/inets_appup_test.erl
@@ -257,6 +257,21 @@ check_instruction(_, Instr, _AllInstr, _Modules) ->
 
 check_version(V) when is_list(V) ->
     ok;
+check_version(REBin) when is_binary(REBin) ->
+    try
+	begin
+	    RE = binary_to_list(REBin),
+	    case re:compile(RE) of
+		{ok, _} ->
+		    ok;
+		{error, _} ->
+		    error({bad_version, REBin})
+	    end
+	end
+    catch
+	_T:_E ->
+	    error({bad_version, REBin})
+    end;
 check_version(V) ->
     error({bad_version, V}).
 
-- 
cgit v1.2.3