win32 compatible temp file handling (thanks, Gábor Oláh https://githu…

…b.com/olikasg)
virtan · Aug 24, 2014 · 635d09b · 635d09b
1 parent c7f5e61
commit 635d09b
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/eep.erl b/src/eep.erl
@@ -290,9 +290,13 @@ subcall_update({SMFA, SCalls}, SubCalls, SpentInSub) ->
 save_kcachegrind_format(FileName) ->
     erlang:process_flag(priority, high),
     RealFileName = kcgfile(FileName),
-    case file:open(RealFileName, [read, write, binary, delayed_write, read_ahead]) of
+    TempFileName = case os:type() of
+                       {win32, _} -> RealFileName ++ ".tmp";
+                       _ -> RealFileName
+                   end,
+    case file:open(TempFileName, [read, write, binary, delayed_write, read_ahead]) of
         {ok, IOD} ->
-            file:delete(RealFileName),
+            file:delete(TempFileName),
             {ok, Timer} = timer:send_interval(1000, status),
             {GTD} = save_receive_cycle(IOD, 1, ts(os:timestamp()), 0, ts(os:timestamp()), <<>>, 0, undefined),
             timer:cancel(Timer),