anchor.diff:          receive
                   {event, Line} ->
                           job_event_handler_do(F, [Line|Buf], BufSize + 1);
  +                flush ->
  +                        flush_buffer(F, Buf),
  +                        timer:send_after(?EVENT_BUFFER_TIMEOUT, flush),
  +                        job_event_handler_do(F, [], 0);
                   done ->
                           flush_buffer(F, Buf),
                           file:close(F);
  
positive.code: 
  job_event_handler(FName) ->
          {ok, F} = file:open(FName, [append, raw]),
          job_event_handler_do(F, [], 0). 
  
  job_event_handler_do(F, Buf, BufSize) when BufSize > ?EVENT_BUFFER_SIZE ->
  
negative.code:                         error_logger:warning_report(
                                  {"Unknown message in job_event_handler", E}),
                          file:close(F)
          end.
  
  flush_buffer(_, []) -> ok;
  flush_buffer(F, Buf) ->
          file:write(F, lists:reverse(Buf)).
                          
  