anchor.diff:  							[{<<"plist">>,Val}|L]
   					end;
   				<<"?",Rem/binary>> ->
  -					[_,Next] = binary:split(Rem,<<"?>">>),
  +					[_,Next] = split_first(Rem,<<"?>">>),
   					plistxml(Next,Term,L);
   				<<"!",Rem/binary>> ->
  -					[_,Next] = binary:split(Rem,<<">">>),
  +					[_,Next] = split_first(Rem,<<">">>),
   					plistxml(Next,Term,L)
   			end;
   		% <<X,R/binary>> when X == $\r; X == $\n; X == $\s; X == $\t ->
  
positive.code: 								[Dom,80]
  						end;
  					[Dom,Port] ->
  						Checkdomain(Dom),
  						[Dom,toint(Port)]
  				end
  			end,
  	Userpass = fun(DomainPort,DM) ->
  					case binary:split(DM,<<"@">>) of
  						[_] ->
  							DomainPort(DM) ++ [undefined, undefined];
  						[Uspw,Rem] ->
  							DomainPort(Rem) ++ binary:split(Uspw,<<":">>)
  					end
  			end,
  	case binary:split(B,<<"/">>) of
  		[Dom,Path] ->
  			list_to_tuple(Userpass(Domport,Dom) ++ [<<"/",Path/binary>>,Ssl]);
  		[Dom] ->
  			list_to_tuple(Userpass(Domport,Dom) ++ [<<"/">>,Ssl])
  	end.
  
  httphead_body({Host,_Port,Us,Pw,Path,_Ssl},Headers1,Method,Body) ->
  	case Method of
  
negative.code: 				<<"/array>",ContentRem/binary>> ->
  					{L,ContentRem};
  				<<"plist",RX/binary>> ->
  					[_,ContentRem] = split_first(RX,<<">">>),
  					case plistxml(ContentRem,Term,[]) of
  						{Val,Rem} ->
  							plistxml(Rem,Term,[{<<"plist">>,Val}|L]);
  