These show up as leaked processes `[loop1]' etc. too, but that is an
implementation detail, and it is clearer to show them separately.
Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
---
ts-leak-check | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/ts-leak-check b/ts-leak-check
index fdade36..8a97971 100755
--- a/ts-leak-check
+++ b/ts-leak-check
@@ -153,10 +153,19 @@ sub inventory_domains () {
}
}
+sub inventory_losetup () {
+ my $loops= target_cmd_output_root($ho, "losetup -a");
+ foreach (split /\n/, $loops) {
+ m,(/dev/loop\d+): , or die "$_ ?";
+ item('loop-device', $1, $_, 1);
+ }
+}
+
sub inventory () {
inventory_domains();
inventory_processes();
inventory_xenstore();
+ inventory_losetup();
inventory_files('/tmp /var/run /var/tmp /var/lib/xen /var/core');
}
--
1.7.10.4
_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xen.org
http://lists.xen.org/xen-devel
