11384f4
From 4b15ee2440b0e70e3c1eb5e164ded493e2d8f0c8 Mon Sep 17 00:00:00 2001
11384f4
From: Yuya Higashi <higashi.yuya@fujitsu.com>
11384f4
Date: Tue, 15 Nov 2022 13:56:21 +0900
11384f4
Subject: [PATCH] virt-top: fix to explicitly disconnect from libvirtd
11384f4
11384f4
To prevent libvirtd from printing virNetSocketReadWire I/O errors when
11384f4
the virt-top command exits, explicitly disconnect from libvirtd.
11384f4
11384f4
Signed-off-by: Yuya Higashi <higashi.yuya@fujitsu.com>
11384f4
---
11384f4
 src/top.ml | 5 +++--
11384f4
 1 file changed, 3 insertions(+), 2 deletions(-)
11384f4
11384f4
diff --git a/src/top.ml b/src/top.ml
11384f4
index 75fbcb9..cbe655a 100644
11384f4
--- a/src/top.ml
11384f4
+++ b/src/top.ml
11384f4
@@ -306,7 +306,7 @@ let get_string maxlen =
11384f4
   )
11384f4
 
11384f4
 (* Main loop. *)
11384f4
-let rec main_loop ((_, batch_mode, script_mode, csv_enabled, stream_mode, _, _, _)
11384f4
+let rec main_loop ((conn, batch_mode, script_mode, csv_enabled, stream_mode, _, _, _)
11384f4
 		     as setup) =
11384f4
   let csv_flags = !csv_cpu, !csv_mem, !csv_block, !csv_net in
11384f4
 
11384f4
@@ -372,7 +372,8 @@ let rec main_loop ((_, batch_mode, script_mode, csv_enabled, stream_mode, _, _,
11384f4
       if not !quit || !end_time <> None then
11384f4
 	millisleep delay
11384f4
     )
11384f4
-  done
11384f4
+  done;
11384f4
+  C.close conn
11384f4
 
11384f4
 and get_key_press setup delay =
11384f4
   (* Read the next key, waiting up to 'delay' milliseconds. *)
11384f4
-- 
11384f4
2.31.1
11384f4