anchor.diff:  						ok when P#httpr.fromfile == undefined ->
   							exit(http_ex_rec(P#httpr{sock = Sock}));
   						ok ->
  -							{ok,Info} = file:read_file_info(P#httpr.fromfile),
  +							{ok,Info} = prim_file:read_file_info(P#httpr.fromfile),
   							Sendfun = fun(Fun,F) ->
   										case file:read(F,1024*1024) of
   											{ok,Fileb} ->
  -												{ok,Info2} = file:read_file_info(P#httpr.fromfile),
  +												{ok,Info2} = prim_file:read_file_info(P#httpr.fromfile),
   												case Info2#file_info.mtime == Info#file_info.mtime of
   													true ->
   														ok = ssl:send(Sock,Fileb);
  
positive.code: 	parsexml(InputXml,[]).
  parsexml(<<"<?xml version=\"1.0\" encoding=\"Windows-1250\"?>",_/binary>> = I,Opt) ->
  	S = "/tmp/" ++ tolist(flatnow()),
  	file:write_file(S,I),
  	R = os:cmd("iconv -f CP1250 -t UTF-8 " ++ S),
  	file:delete(S),
  	parsexml(R,Opt);
  
negative.code: 	savebinfile(Path,term_to_binary(Term,[compressed,{minor_version,1}])).
  savebinfile(Path,Bin) ->
  	filelib:ensure_dir(Path),
  	ok = prim_file:write_file(Path,[<<(erlang:crc32(Bin)):32/unsigned>>,Bin]).
  readtermfile(Path) ->
  	case readbinfile(Path) of
  		undefined ->
  