diff options
| author | Kenneth Lundin <[email protected]> | 2011-05-19 17:59:41 +0200 |
|---|---|---|
| committer | Kenneth Lundin <[email protected]> | 2011-05-19 17:59:41 +0200 |
| commit | 38a2271e2474c83ffbc6ed6a3f601cf873cb1699 (patch) | |
| tree | 851df39509cf712d548157b780671df33f1dec2d /lib/asn1/src/asn1rt_check.erl | |
| parent | c666fa93b12399a0160b6bfedf002eacbc2f01e2 (diff) | |
| download | otp-38a2271e2474c83ffbc6ed6a3f601cf873cb1699.tar.gz otp-38a2271e2474c83ffbc6ed6a3f601cf873cb1699.tar.bz2 otp-38a2271e2474c83ffbc6ed6a3f601cf873cb1699.zip | |
Corrected handling of long length in driver and updated test suites
Diffstat (limited to 'lib/asn1/src/asn1rt_check.erl')
| -rw-r--r-- | lib/asn1/src/asn1rt_check.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/asn1/src/asn1rt_check.erl b/lib/asn1/src/asn1rt_check.erl index 59a74a7078..24a2a3802d 100644 --- a/lib/asn1/src/asn1rt_check.erl +++ b/lib/asn1/src/asn1rt_check.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2001-2009. All Rights Reserved. +%% Copyright Ericsson AB 2001-2011. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -311,7 +311,7 @@ transform_to_EXTERNAL1990([Data_val_desc,Data_value],Acc) when is_list(Data_valu Data_val_desc|Acc])); transform_to_EXTERNAL1990([Data_val_desc,Data_value],Acc) when is_binary(Data_value)-> - list_to_tuple(lists:reverse([{'octet-aligned',binary_to_list(Data_value)}, + list_to_tuple(lists:reverse([{'single-ASN1-type',Data_value}, Data_val_desc|Acc])); transform_to_EXTERNAL1990([Data_value],Acc) when is_list(Data_value)-> list_to_tuple(lists:reverse([{'octet-aligned',Data_value}|Acc])). |