From: Richard W.M. Jones <rjones@redhat.com>
Date: Wed, 24 Jun 2009 19:04:58 +0000 (+0100)
Subject: Fix detection of optional libvirt support in virt-inspector.
X-Git-Tag: 1.0.54~34
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=215041c7178922341ecbfdb23eb203f2bb8c29c4;p=libguestfs.git

Fix detection of optional libvirt support in virt-inspector.
---

diff --git a/inspector/virt-inspector.pl b/inspector/virt-inspector.pl
index c645cbd..6aa63ad 100755
--- a/inspector/virt-inspector.pl
+++ b/inspector/virt-inspector.pl
@@ -206,8 +206,10 @@ if (-e $ARGV[0]) {
 	}
     }
 } else {
-    die "no libvirt support (install Sys::Virt)"
-	unless exists $INC{"Sys/Virt.pm"};
+    die "virt-inspector: no libvirt support (install Sys::Virt, XML::XPath and XML::XPath::XMLParser)\n"
+	unless exists $INC{"Sys/Virt.pm"} &&
+	exists $INC{"XML/XPath.pm"} &&
+	exists $INC{"XML/XPath/XMLParser.pm"};
 
     pod2usage ("$0: too many domains listed on command line") if @ARGV > 1;