The version test for Sys::Virt in kvm.pm is completely broken because it
tries to compare version strings with a numeric operator. This patch
fixes the check by using version objects which have been present in Perl
since 5.9.0.
--
Daniel M. Weeks
Systems Programmer
Computational Center for Nanotechnology Innovations
Rensselaer Polytechnic Institute
Troy, NY 12180
518-276-4458
--- a/lib/perl/xCAT_plugin/kvm.pm 2013-05-06 16:28:17.624297094 -0400
+++ b/lib/perl/xCAT_plugin/kvm.pm 2013-05-06 16:29:03.417715112 -0400
@@ -39,8 +39,9 @@
my $confdata; #a reference to serve as a common pointer betweer VMCommon functions and this plugin
my $libvirtsupport;
$libvirtsupport = eval {
- require Sys::Virt;
- if (Sys::Virt->VERSION < "0.2.0") {
+ require Sys::Virt;
+ use version;
+ if (version->parse(Sys::Virt->VERSION) < version->parse("0.2.0")) {
die;
}
1;
------------------------------------------------------------------------------
Learn Graph Databases - Download FREE O'Reilly Book
"Graph Databases" is the definitive new guide to graph databases and
their applications. This 200-page book is written by three acclaimed
leaders in the field. The early access version is available now.
Download your free book today! http://p.sf.net/sfu/neotech_d2d_may
_______________________________________________
xCAT-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xcat-user
