diff options
| author | Micael Karlberg <[email protected]> | 2013-01-28 12:59:46 +0100 |
|---|---|---|
| committer | Micael Karlberg <[email protected]> | 2013-01-28 12:59:46 +0100 |
| commit | a0d96e34a9e55e4d928f814fba25c746a13de3e5 (patch) | |
| tree | 7526407b4b4913f834e206d119812e3347307506 /lib/inets/test/inets_appup_test.erl | |
| parent | e9bd9d3cec027bf6147af8355f3faff330602a45 (diff) | |
| parent | eb709715f44e09d1c25c2ed47f11f44137166e00 (diff) | |
| download | otp-a0d96e34a9e55e4d928f814fba25c746a13de3e5.tar.gz otp-a0d96e34a9e55e4d928f814fba25c746a13de3e5.tar.bz2 otp-a0d96e34a9e55e4d928f814fba25c746a13de3e5.zip | |
Merge branch 'bmk/inets/prepare-for-release'
Diffstat (limited to 'lib/inets/test/inets_appup_test.erl')
| -rw-r--r-- | lib/inets/test/inets_appup_test.erl | 15 |
1 files changed, 15 insertions, 0 deletions
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}). |