anchor.diff:  		      CheckPoint, PemCache).
   
   pem_cache_validate({File, _}, CheckPoint) ->
  -    case file:read_file_info(File, []) of
  -	{ok, #file_info{mtime = Time}} ->
  -	    case is_before_checkpoint(Time, CheckPoint) of
  -		true ->
  -		    ok;
  -		false ->
  -		    invalidate_pem(File)
  -	    end;
  +    case file:read_file_info(File, [{time, posix}]) of
  +	{ok, #file_info{mtime = Time}} when Time < CheckPoint ->
  +	    ok;
   	_  ->
   	    invalidate_pem(File)
       end,
       CheckPoint.
  -
  -is_before_checkpoint(Time, CheckPoint) ->
  -    calendar:datetime_to_gregorian_seconds(
  -      calendar:now_to_datetime(CheckPoint)) -
  -	calendar:datetime_to_gregorian_seconds(Time) > 0.
   
   pem_check_interval() ->
       case application:get_env(ssl, ssl_pem_cache_clean) of
  
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: 
  -record(state, {
  	  pem_cache,                  
  	  last_pem_check             :: integer(),
  	  clear            :: integer()
  	 }).
  
  