anchor.diff:  %% Description: Decodes a PEM binary.
   %%--------------------------------------------------------------------		    
   decode(Bin) ->
  -    decode_pem_entries(split_bin(Bin), []).
  +    decode_pem_entries(
  +        binary:split(Bin, [<<"\r\n">>, <<"\r">>, <<"\n">>], [global]), []).
   
   %%--------------------------------------------------------------------
   -spec encode([public_key:pem_entry()]) -> iolist().
  
positive.code: decode_pem_entries([<<>> | Lines], Entries) ->
      decode_pem_entries(Lines, Entries);
  decode_pem_entries([StartLine | Lines], Entries) ->
      Start = string:trim(StartLine),
      case pem_end(Start) of
  	undefined ->
  	    decode_pem_entries(Lines, Entries);
  
negative.code: 	    {Entry, RestLines} = join_entry(Lines, []),
  	    decode_pem_entries(RestLines, [decode_pem_entry(Start, Entry) | Entries])
      end.
  
  strip_tail_whitespace(Bin) when is_binary(Bin) ->
      strip_tail_whitespace(lists:reverse(binary:bin_to_list(Bin)));
  strip_tail_whitespace([Char|Rest])
    when Char == $ ;
         Char == $\t;
         Char == $\v;
         Char == $\f;
         Char == $\r;
         Char == $\n ->
      strip_tail_whitespace(Rest);
  strip_tail_whitespace(List) ->
      binary:list_to_bin(
          lists:reverse(List)).
  
  decode_pem_entry(Start, [<<"Proc-Type: 4,ENCRYPTED", _/binary>>, Line | Lines]) ->
      Type = asn1_type(Start),
  