-Ensure that kvm has Sys::Virt 0.2.0 module installed, will start using features only in 0.2.0

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@3157 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2009-04-09 14:10:38 +00:00
parent 84292d8b87
commit 1b798c9b39

View File

@ -784,9 +784,15 @@ sub process_request {
};
my $request = shift;
my $callback = shift;
my $libvirtsupport = eval { require Sys::Virt; };
my $libvirtsupport = eval {
require Sys::Virt;
if (Sys::Virt->VERSION < "0.2.0") {
die;
}
1;
};
unless ($libvirtsupport) { #Still no Sys::Virt module
$callback->({error=>"Sys::Virt perl module missing, unable to fulfill KVM plugin requirements",errorcode=>[42]});
$callback->({error=>"Sys::Virt perl module missing or older than 0.2.0, unable to fulfill KVM plugin requirements",errorcode=>[42]});
return [];
}
require Sys::Virt::Domain;