git.annexia.org
/
virt-top.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Support for calendar >= 2.0
[virt-top.git]
/
virt-top
/
virt_top_main.ml
diff --git
a/virt-top/virt_top_main.ml
b/virt-top/virt_top_main.ml
old mode 100644
(file)
new mode 100755
(executable)
index
cb3486e
..
ba98e7e
--- a/
virt-top/virt_top_main.ml
+++ b/
virt-top/virt_top_main.ml
@@
-30,19
+30,19
@@
open Virt_top
* the program under --debug ...).
*)
let error =
* the program under --debug ...).
*)
let error =
- let
setup
= start_up () in
+ let
((_, _, script_mode, _, _, _, _) as setup)
= start_up () in
try
main_loop setup;
try
main_loop setup;
- if
!
script_mode then endwin ();
+ if
not
script_mode then endwin ();
false
with
| Libvirt.Virterror err ->
false
with
| Libvirt.Virterror err ->
- endwin ();
+
if not script_mode then
endwin ();
prerr_endline (Libvirt.Virterror.to_string err);
true
| exn ->
prerr_endline (Libvirt.Virterror.to_string err);
true
| exn ->
- endwin ();
+
if not script_mode then
endwin ();
prerr_endline ("Error: " ^ Printexc.to_string exn);
true
prerr_endline ("Error: " ^ Printexc.to_string exn);
true