Merge tag 'OTP-19.0' into sverker/19/binary_to_atom-utf8-crash/ERL-474/OTP-14590

1 files changed, 17 insertions, 16 deletions

diff --git a/lib/orber/src/orber_objectkeys.erl b/lib/orber/src/orber_objectkeys.erl
index b0e759187b..1233e4e721 100644
--- a/lib/orber/src/orber_objectkeys.erl
+++ b/lib/orber/src/orber_objectkeys.erl
@@ -2,18 +2,19 @@
 %%
 %% %CopyrightBegin%
 %% 
-%% Copyright Ericsson AB 1997-2009. All Rights Reserved.
+%% Copyright Ericsson AB 1997-2015. All Rights Reserved.
 %% 
-%% The contents of this file are subject to the Erlang Public License,
-%% Version 1.1, (the "License"); you may not use this file except in
-%% compliance with the License. You should have received a copy of the
-%% Erlang Public License along with this software. If not, it can be
-%% retrieved online at http://www.erlang.org/.
-%% 
-%% Software distributed under the License is distributed on an "AS IS"
-%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
-%% the License for the specific language governing rights and limitations
-%% under the License.
+%% Licensed under the Apache License, Version 2.0 (the "License");
+%% you may not use this file except in compliance with the License.
+%% You may obtain a copy of the License at
+%%
+%%     http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing, software
+%% distributed under the License is distributed on an "AS IS" BASIS,
+%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+%% See the License for the specific language governing permissions and
+%% limitations under the License.
 %% 
 %% %CopyrightEnd%
 %%
@@ -374,11 +375,11 @@ handle_call({register, Objkey, Pid, Type}, _From, State) ->
 			  %% No key exists. Ok to register.
 			  mnesia:write(#orber_objkeys{object_key=Objkey, pid=Pid,
 						      persistent=Type,
-						      timestamp=now()});
+						      timestamp=erlang:monotonic_time(seconds)});
 		      [X] when X#orber_objkeys.persistent==true,
 			       X#orber_objkeys.pid == dead ->
 			  %% A persistent object is being restarted. Update Pid & time.
-			  mnesia:write(X#orber_objkeys{pid=Pid, timestamp=now()});
+			  mnesia:write(X#orber_objkeys{pid=Pid, timestamp=erlang:monotonic_time(seconds)});
 		      [X] when is_pid(X#orber_objkeys.pid) ->
 			  %% Object exists, i.e., trying to create an object with
 			  %% the same name.
@@ -477,7 +478,7 @@ handle_info({'EXIT', Pid, Reason}, State) when is_pid(Pid) ->
 			       Reason /= normal andalso
 			       Reason /= shutdown ->
 			  mnesia:write(X#orber_objkeys{pid=dead,
-						       timestamp=now()});
+						       timestamp=erlang:monotonic_time(seconds)});
 		      [X] when X#orber_objkeys.persistent==true ->
 			  mnesia:delete({orber_objkeys, X#orber_objkeys.object_key});
 		      _->
@@ -503,8 +504,8 @@ code_change(_OldVsn, State, _Extra) ->
 %% Internal Functions
 %%-----------------------------------------------------------------
 
-timetest(S, {MeSec, Sec, USec}) ->
-    {MeSec, Sec+S, USec} < now().
+timetest(S, TimeStamp) ->
+    TimeStamp+S < erlang:monotonic_time(seconds).
 
 get_key_from_pid(Pid) ->
     case  mnesia:dirty_match_object({orber_objkeys, '_', Pid,'_','_'}) of