diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..9164365 --- /dev/null +++ b/.gitignore @@ -0,0 +1 @@ +SOURCES/virt-top-1.0.9.tar.gz diff --git a/.virt-top.metadata b/.virt-top.metadata new file mode 100644 index 0000000..f67f397 --- /dev/null +++ b/.virt-top.metadata @@ -0,0 +1 @@ +95ba1f8d87223ff8e7f341c8c7cb70b59b9d2408 SOURCES/virt-top-1.0.9.tar.gz diff --git a/SOURCES/0001-libvirt-Handle-VIR_DOMAIN_PMSUSPENDED-state.patch b/SOURCES/0001-libvirt-Handle-VIR_DOMAIN_PMSUSPENDED-state.patch new file mode 100644 index 0000000..c29b6d6 --- /dev/null +++ b/SOURCES/0001-libvirt-Handle-VIR_DOMAIN_PMSUSPENDED-state.patch @@ -0,0 +1,40 @@ +From 24a461715d5bce47f63cb0097606fc336230589f Mon Sep 17 00:00:00 2001 +From: Stephane Glondu +Date: Wed, 21 Aug 2019 17:24:47 +0200 +Subject: [PATCH] libvirt: Handle VIR_DOMAIN_PMSUSPENDED state. + +Fixes FTBFS with ocaml-libvirt 0.6.1.5. + +RWMJ: Added documentation and changed the letter to 'M'. +--- + src/screen.ml | 1 + + src/virt-top.pod | 4 ++++ + 2 files changed, 5 insertions(+) + +diff --git a/src/screen.ml b/src/screen.ml +index 0d847a2..8a66ba6 100644 +--- a/src/screen.ml ++++ b/src/screen.ml +@@ -50,3 +50,4 @@ let show_state = function + | D.InfoShutdown -> 'D' + | D.InfoShutoff -> 'O' + | D.InfoCrashed -> 'X' ++ | D.InfoPMSuspended -> 'M' +diff --git a/src/virt-top.pod b/src/virt-top.pod +index 4d81608..76ad3f9 100644 +--- a/src/virt-top.pod ++++ b/src/virt-top.pod +@@ -492,6 +492,10 @@ Shutdown. + + Crashed. + ++=item B ++ ++Suspended by guest power management. ++ + =back + + =item B