anchor.diff:  							% 						headersin = Headers, postbody = Body, connopts = ConnOpts1, callback = Callback,
   							% 						tofile = Tofile, tofilename = Tofilename}));
   						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 = gen_tcp:send(Sock,Fileb);
  
positive.code: 			binary_to_term(Bin)
  	end.
  readbinfile(Path) ->
  	case file:read_file(Path) of
  		{ok,<<Crc:32/unsigned,Body/binary>>} ->
  			case erlang:crc32(Body) of
  				Crc ->
  
negative.code: 						ok when P#httpr.fromfile == undefined ->
  							exit(http_ex_rec(P#httpr{sock = Sock}));
  						ok ->
  							{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} = prim_file:read_file_info(P#httpr.fromfile),
  												case Info2#file_info.mtime == Info#file_info.mtime of
  													true ->
  														ok = ssl:send(Sock,Fileb);
  