From f6bb3dc325e686375b1dee283bd91c3068b682a1 Mon Sep 17 00:00:00 2001 From: Siri Hansen Date: Wed, 26 Feb 2014 14:36:55 +0100 Subject: Change spawn/1 + monitor/2 to spawn_monitor/1 to avoid deadlock crashdump_viewer:progress_pmap did sometimes hang since is spawned a process, then monitored it and waited for a specific DOWN message. When the process' work was very fast, it would exit before the call to monitor and the DOWN message would contain reason 'noproc' instead of the expected {pmap_done,Result}. By doing spawn_monitor/1 instead, the monitor is always set before the process exits so the deadlock is avoided. --- lib/observer/src/crashdump_viewer.erl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/observer/src') diff --git a/lib/observer/src/crashdump_viewer.erl b/lib/observer/src/crashdump_viewer.erl index a17efbccb0..0467e808e3 100644 --- a/lib/observer/src/crashdump_viewer.erl +++ b/lib/observer/src/crashdump_viewer.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2003-2013. All Rights Reserved. +%% Copyright Ericsson AB 2003-2014. 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 @@ -2559,11 +2559,11 @@ progress_pmap(Report,File,Fun,List) -> {L1,L2} = if length(L)>=NPerProc -> lists:split(NPerProc,L); true -> {L,[]} % last chunk end, - P = spawn( + {P,_Ref} = + spawn_monitor( fun() -> progress_map(Collector,ReportInterval,File,Fun,L1) end), - erlang:monitor(process,P), {L2,[P|Ps]} end, {List,[]}, -- cgit v1.2.3