← Back to branch summary

~ubuntu-branches/ubuntu/quantal/virt-top/quantal

« back to all changes in this revision

Viewing changes to virt-top/virt_top_main.ml

  • Committer: Package Import Robot
  • Author(s): Laurent Léonard
  • Date: 2011-08-15 23:19:06 UTC
  • mfrom: (3.1.4 sid)
  • Revision ID: package-import@ubuntu.com-20110815231906-rp38flx2z9jpx1gx
Tags: 1.0.6-1
* [7c3e6a1] Imported Upstream version 1.0.6
* [f0a771b] Redo patch
* [6629856] Bump Standards-Version to 3.9.2
* [930eafd] New patch 0002-Ensure-manpages-get-built-when-using-native-
  compiler.patch

Show diffs side-by-side

added added

removed removed

Lines of Context:
virt-top/virt_top_main.ml
31
31
 * the program under --debug ...).
32
32
 *)
33
33
let error =
34
 
  let ((_, _, script_mode, _, _, _, _) as setup) = start_up () in
 
34
  let ((_, _, script_mode, _, stream_mode, _, _, _) as setup) = start_up () in
35
35
 
36
36
  try
37
37
    Printexc.record_backtrace true;
38
38
    main_loop setup;
39
 
    if not script_mode then endwin ();
 
39
    if not script_mode && not stream_mode then endwin ();
40
40
    false
41
41
  with
42
42
  | Libvirt.Virterror err ->
43
 
      if not script_mode then endwin ();
 
43
      if not script_mode && not stream_mode then endwin ();
44
44
      prerr_endline (Libvirt.Virterror.to_string err);
45
45
      Printexc.print_backtrace stderr;
46
46
      true
47
47
  | exn ->
48
 
      if not script_mode then endwin ();
 
48
      if not script_mode && not stream_mode then endwin ();
49
49
      prerr_endline (s_ "Error" ^ ": " ^ Printexc.to_string exn);
50
50
      Printexc.print_backtrace stderr;
51
51
      true