-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:
parent
84292d8b87
commit
1b798c9b39
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user