diff options
| author | Kenneth Lundin <[email protected]> | 2012-08-20 12:53:03 +0200 |
|---|---|---|
| committer | Kenneth Lundin <[email protected]> | 2012-08-20 12:53:03 +0200 |
| commit | d50a22593044f7a163d7d113f000ee8fc1cccfc6 (patch) | |
| tree | 4b97dc6d1605a20c3150a4bdd1238cd38597144b /lib/asn1/src | |
| parent | f11a10e75d7f3b49a58ac225d624ac6654e23870 (diff) | |
| download | otp-d50a22593044f7a163d7d113f000ee8fc1cccfc6.tar.gz otp-d50a22593044f7a163d7d113f000ee8fc1cccfc6.tar.bz2 otp-d50a22593044f7a163d7d113f000ee8fc1cccfc6.zip | |
Corrected decoding to encorse a proper error return is there is tag mismatch
Diffstat (limited to 'lib/asn1/src')
| -rw-r--r-- | lib/asn1/src/asn1rt_ber_bin_v2.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/asn1/src/asn1rt_ber_bin_v2.erl b/lib/asn1/src/asn1rt_ber_bin_v2.erl index 17e66f77c9..420e3e1d91 100644 --- a/lib/asn1/src/asn1rt_ber_bin_v2.erl +++ b/lib/asn1/src/asn1rt_ber_bin_v2.erl @@ -610,8 +610,8 @@ match_tags(Vlist = [{T,_V}|_], [T]) -> Vlist; match_tags(Tlv, []) -> Tlv; -match_tags({Tag,_V},[T|_Tt]) -> - {error,{asn1,{wrong_tag,{Tag,T}}}}. +match_tags(Tlv = {Tag,_V},[T|_Tt]) -> + exit({error,{asn1,{wrong_tag,{{expected,T},{got,Tag,Tlv}}}}}). cindex(Ix,Val,Cname) -> |