anchor.diff:      PemCache = ssl_pkix_db:create_pem_cache(Name),
       Interval = pem_check_interval(),
       erlang:send_after(Interval, self(), clear_pem_cache),
  +    erlang:system_time(second),
       {ok, #state{pem_cache = PemCache,
  -		last_pem_check =  os:timestamp(),
  +		last_pem_check =  erlang:convert_time_unit(os:system_time(), native, second),
   		clear = Interval 	
   	       }}.
   
  
positive.code: handle_info(clear_pem_cache, #state{pem_cache = PemCache,
  				    clear = Interval,
  				    last_pem_check = CheckPoint} = State) ->
      NewCheckPoint = os:timestamp(),
      start_pem_cache_validator(PemCache, CheckPoint),
      erlang:send_after(Interval, self(), clear_pem_cache),
      {noreply, State#state{last_pem_check = NewCheckPoint}};
  
negative.code: 		      CheckPoint, PemCache).
  
  pem_cache_validate({File, _}, CheckPoint) ->
      case file:read_file_info(File, [{time, posix}]) of
  	{ok, #file_info{mtime = Time}} when Time < CheckPoint ->
  	    ok;
  	_  ->
  	    invalidate_pem(File)
      end,
      CheckPoint.
  
  pem_check_interval() ->
      case application:get_env(ssl, ssl_pem_cache_clean) of
  