Browse Source

Forward port #292 to 3.x branch

255 is a valid ISO-8859-1 character. This was fixed
on 2.x by #292. Forward port the fix into 3.x.
pull/300/head
Mark Allen 9 years ago
parent
commit
6452db6388
2 changed files with 2 additions and 2 deletions
  1. +1
    -1
      src/lager_stdlib.erl
  2. +1
    -1
      test/trunc_io_eqc.erl

+ 1
- 1
src/lager_stdlib.erl View File

@ -39,7 +39,7 @@ string_p([]) ->
string_p(Term) -> string_p(Term) ->
string_p1(Term). string_p1(Term).
string_p1([H|T]) when is_integer(H), H >= $\s, H < 255 ->
string_p1([H|T]) when is_integer(H), H >= $\s, H < 256 ->
string_p1(T); string_p1(T);
string_p1([$\n|T]) -> string_p1(T); string_p1([$\n|T]) -> string_p1(T);
string_p1([$\r|T]) -> string_p1(T); string_p1([$\r|T]) -> string_p1(T);

+ 1
- 1
test/trunc_io_eqc.erl View File

@ -91,7 +91,7 @@ gen_fmt_args() ->
%% Generates a printable string %% Generates a printable string
gen_print_str() -> gen_print_str() ->
?LET(Xs, list(char()), [X || X <- Xs, io_lib:printable_list([X]), X /= $~, X < 255]).
?LET(Xs, list(char()), [X || X <- Xs, io_lib:printable_list([X]), X /= $~, X < 256]).
gen_print_bin() -> gen_print_bin() ->
?LET(Xs, gen_print_str(), list_to_binary(Xs)). ?LET(Xs, gen_print_str(), list_to_binary(Xs)).

Loading…
Cancel
Save