Hello community, here is the log from the commit of package perl-Sys-Virt for openSUSE:Factory checked in at 2013-10-11 11:04:51 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Sys-Virt (Old) and /work/SRC/openSUSE:Factory/.perl-Sys-Virt.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Sys-Virt" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Sys-Virt/perl-Sys-Virt.changes 2013-08-04 17:05:23.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Sys-Virt.new/perl-Sys-Virt.changes 2013-10-11 11:04:52.000000000 +0200 @@ -1,0 +2,6 @@ +Thu Oct 3 18:36:12 MDT 2013 - [email protected] + +- Update to 1.1.2 + - Add all new APIs and constants in libvirt 1.1.2 + +------------------------------------------------------------------- Old: ---- Sys-Virt-1.1.1.tar.gz New: ---- Sys-Virt-1.1.2.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Sys-Virt.spec ++++++ --- /var/tmp/diff_new_pack.3CI1tg/_old 2013-10-11 11:05:05.000000000 +0200 +++ /var/tmp/diff_new_pack.3CI1tg/_new 2013-10-11 11:05:05.000000000 +0200 @@ -17,7 +17,7 @@ Name: perl-Sys-Virt -Version: 1.1.1 +Version: 1.1.2 Release: 0 %define cpan_name Sys-Virt Summary: Represent and manage a libvirt hypervisor connection ++++++ Sys-Virt-1.1.1.tar.gz -> Sys-Virt-1.1.2.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.1/Changes new/Sys-Virt-1.1.2/Changes --- old/Sys-Virt-1.1.1/Changes 2013-07-30 16:34:30.000000000 +0200 +++ new/Sys-Virt-1.1.2/Changes 2013-09-27 18:30:07.000000000 +0200 @@ -1,5 +1,9 @@ Revision history for perl module Sys::Virt +1.1.2 2013-09-27 + + - Add all new constants in libvirt 1.1.2 + 1.1.1 2013-07-30 - Add all new constants/apis in libvirt 1.1.1 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.1/MANIFEST new/Sys-Virt-1.1.2/MANIFEST --- old/Sys-Virt-1.1.1/MANIFEST 2013-07-30 16:34:51.000000000 +0200 +++ new/Sys-Virt-1.1.2/MANIFEST 2013-09-27 18:30:18.000000000 +0200 @@ -8,6 +8,7 @@ examples/events.pl examples/hv-stat.pl examples/node-cpu.pl +examples/node-devlist.pl examples/node-ksm.pl examples/open-console.pl examples/save-restore.pl diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.1/META.yml new/Sys-Virt-1.1.2/META.yml --- old/Sys-Virt-1.1.1/META.yml 2013-07-30 16:34:51.000000000 +0200 +++ new/Sys-Virt-1.1.2/META.yml 2013-09-27 18:30:18.000000000 +0200 @@ -1,7 +1,7 @@ --- #YAML:1.0 name: Sys-Virt abstract: Extension for the libvirt library -version: 1.1.1 +version: 1.1.2 author: - Daniel P. Berrange <[email protected]> license: perl diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.1/MYMETA.json new/Sys-Virt-1.1.2/MYMETA.json --- old/Sys-Virt-1.1.1/MYMETA.json 2013-07-30 16:34:38.000000000 +0200 +++ new/Sys-Virt-1.1.2/MYMETA.json 2013-09-27 18:30:11.000000000 +0200 @@ -42,5 +42,5 @@ } }, "release_status" : "stable", - "version" : "v1.1.1" + "version" : "v1.1.2" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.1/MYMETA.yml new/Sys-Virt-1.1.2/MYMETA.yml --- old/Sys-Virt-1.1.1/MYMETA.yml 2013-07-30 16:34:38.000000000 +0200 +++ new/Sys-Virt-1.1.2/MYMETA.yml 2013-09-27 18:30:11.000000000 +0200 @@ -24,4 +24,4 @@ Test::Pod::Coverage: 0 Time::HiRes: 0 XML::XPath: 0 -version: v1.1.1 +version: v1.1.2 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.1/Makefile.PL new/Sys-Virt-1.1.2/Makefile.PL --- old/Sys-Virt-1.1.1/Makefile.PL 2013-07-30 16:34:30.000000000 +0200 +++ new/Sys-Virt-1.1.2/Makefile.PL 2013-09-27 18:30:07.000000000 +0200 @@ -3,7 +3,7 @@ # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. -my $libvirtver = "1.1.1"; +my $libvirtver = "1.1.2"; my $stat = system "pkg-config --atleast-version=$libvirtver libvirt"; die "cannot run pkg-config to check libvirt version" if $stat == -1; die "libvirt >= $libvirtver is required\n" unless $stat == 0; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.1/README new/Sys-Virt-1.1.2/README --- old/Sys-Virt-1.1.1/README 2013-07-30 16:34:30.000000000 +0200 +++ new/Sys-Virt-1.1.2/README 2013-09-27 18:30:07.000000000 +0200 @@ -7,6 +7,6 @@ The only pre-requisite for this module is libvirt itself. For installation instructions, consult the INSTALL file. -The current minimum required version of libvirt is 1.1.1 +The current minimum required version of libvirt is 1.1.2 -- End diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.1/Virt.xs new/Sys-Virt-1.1.2/Virt.xs --- old/Sys-Virt-1.1.1/Virt.xs 2013-07-30 16:34:30.000000000 +0200 +++ new/Sys-Virt-1.1.2/Virt.xs 2013-09-27 18:30:07.000000000 +0200 @@ -4370,12 +4370,21 @@ maplen = VIR_CPU_MAPLEN(VIR_NODEINFO_MAXCPUS(nodeinfo)); Newx(cpumaps, dominfo.nrVirtCpu * maplen, unsigned char); - if (flags && (flags & VIR_DOMAIN_AFFECT_CONFIG)) { - Newx(info, dominfo.nrVirtCpu, virVcpuInfo); + if (!flags) { + Newx(info, dominfo.nrVirtCpu, virVcpuInfo); if ((nvCpus = virDomainGetVcpus(dom, info, dominfo.nrVirtCpu, cpumaps, maplen)) < 0) { + virErrorPtr err = virGetLastError(); Safefree(info); - Safefree(cpumaps); - _croak_error(); + info = NULL; + if (err && err->code == VIR_ERR_OPERATION_INVALID) { + if ((nvCpus = virDomainGetVcpuPinInfo(dom, dominfo.nrVirtCpu, cpumaps, maplen, flags)) < 0) { + Safefree(cpumaps); + _croak_error(); + } + } else { + Safefree(cpumaps); + _croak_error(); + } } } else { info = NULL; @@ -4393,6 +4402,10 @@ (void)hv_store(rec, "state", 5, newSViv(info[i].state), 0); (void)hv_store(rec, "cpuTime", 7, virt_newSVull(info[i].cpuTime), 0); (void)hv_store(rec, "cpu", 3, newSViv(info[i].cpu), 0); + } else { + (void)hv_store(rec, "state", 5, newSViv(0), 0); + (void)hv_store(rec, "cpuTime", 7, virt_newSVull(0), 0); + (void)hv_store(rec, "cpu", 3, newSViv(0), 0); } (void)hv_store(rec, "affinity", 8, newSVpvn((char*)cpumaps + (i *maplen), maplen), 0); PUSHs(newRV_noinc((SV *)rec)); @@ -5390,8 +5403,10 @@ get_parent(dev) virNodeDevicePtr dev; CODE: - if (!(RETVAL = virNodeDeviceGetParent(dev))) - _croak_error(); + if (!(RETVAL = virNodeDeviceGetParent(dev))) { + if (virGetLastError() != NULL) + _croak_error(); + } OUTPUT: RETVAL @@ -6460,6 +6475,7 @@ REGISTER_CONSTANT_STR(VIR_NODE_MEMORY_SHARED_PAGES_VOLATILE, NODE_MEMORY_SHARED_PAGES_VOLATILE); REGISTER_CONSTANT_STR(VIR_NODE_MEMORY_SHARED_FULL_SCANS, NODE_MEMORY_SHARED_FULL_SCANS); + REGISTER_CONSTANT(VIR_CONNECT_BASELINE_CPU_EXPAND_FEATURES, BASELINE_CPU_EXPAND_FEATURES); stash = gv_stashpv( "Sys::Virt::Event", TRUE ); @@ -6766,6 +6782,7 @@ REGISTER_CONSTANT(VIR_DOMAIN_EVENT_GRAPHICS_ADDRESS_UNIX, EVENT_GRAPHICS_ADDRESS_UNIX); REGISTER_CONSTANT(VIR_DOMAIN_EVENT_DISK_CHANGE_MISSING_ON_START, EVENT_DISK_CHANGE_MISSING_ON_START); + REGISTER_CONSTANT(VIR_DOMAIN_EVENT_DISK_DROP_MISSING_ON_START, EVENT_DISK_DROP_MISSING_ON_START); REGISTER_CONSTANT(VIR_DOMAIN_EVENT_TRAY_CHANGE_OPEN, EVENT_TRAY_CHANGE_OPEN); REGISTER_CONSTANT(VIR_DOMAIN_EVENT_TRAY_CHANGE_CLOSE, EVENT_TRAY_CHANGE_CLOSE); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.1/examples/node-devlist.pl new/Sys-Virt-1.1.2/examples/node-devlist.pl --- old/Sys-Virt-1.1.1/examples/node-devlist.pl 1970-01-01 01:00:00.000000000 +0100 +++ new/Sys-Virt-1.1.2/examples/node-devlist.pl 2013-09-27 18:30:07.000000000 +0200 @@ -0,0 +1,11 @@ +#!/usr/bin/perl + +use Sys::Virt; + +my $conn = Sys::Virt->new(); + +my @nodelist = $conn->list_all_node_devices(); +foreach my $dev (@nodelist){ + my $parent = $dev->get_parent(); + printf "%s: < %s\n", $dev->get_name(), $parent; +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.1/examples/vcpuinfo.pl new/Sys-Virt-1.1.2/examples/vcpuinfo.pl --- old/Sys-Virt-1.1.1/examples/vcpuinfo.pl 2013-07-30 16:34:30.000000000 +0200 +++ new/Sys-Virt-1.1.2/examples/vcpuinfo.pl 2013-09-27 18:30:07.000000000 +0200 @@ -9,12 +9,12 @@ print "VMM type: ", $con->get_type(), "\n"; -foreach my $dom (sort { $a->get_id <=> $b->get_id } $con->list_domains) { +foreach my $dom (sort { $a->get_id <=> $b->get_id } $con->list_all_domains) { print "Domain: {\n"; print " ID: ", $dom->get_id(), " '" , $dom->get_name(), "'\n"; print " UUID: ", $dom->get_uuid_string(), "\n"; my $nodeinfo = $con->get_node_info; - my @info = $dom->get_vcpu_info; + my @info = $dom->get_vcpu_info(Sys::Virt::Domain::AFFECT_CONFIG); foreach my $info (@info) { print " VCPU: {\n"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.1/lib/Sys/Virt/Domain.pm new/Sys-Virt-1.1.2/lib/Sys/Virt/Domain.pm --- old/Sys-Virt-1.1.1/lib/Sys/Virt/Domain.pm 2013-07-30 16:34:30.000000000 +0200 +++ new/Sys-Virt-1.1.2/lib/Sys/Virt/Domain.pm 2013-09-27 18:30:07.000000000 +0200 @@ -1113,7 +1113,7 @@ object from which the data can be read. C<$flags> is currently unused and defaults to 0. The mimetype of the screenshot is returned -=item @vcpuinfo = $dom->get_vcpu_info() +=item @vcpuinfo = $dom->get_vcpu_info($flags=0) Obtain information about the state of all virtual CPUs in a running guest domain. The returned list will have one element for each vCPU, @@ -1124,7 +1124,9 @@ the allowed shedular placement. The value for C<affinity> is a string representing a bitmask against physical CPUs, 8 cpus per character. To extract the bits use the C<unpack> function with -the C<b*> template. +the C<b*> template. NB The C<state>, C<cpuTime>, C<cpu> values are +only available if using C<$flags> value of 0, and the domain is +currently running; otherwise they will all be set to zero. =item $dom->pin_vcpu($vcpu, $mask) @@ -2513,7 +2515,11 @@ =item Sys::Virt::Domain::EVENT_DISK_CHANGE_MISSING_ON_START -The disk media was missing when attempting to start the guest +The disk media was cleared, as its source was missing when attempting to start the guest + +=item Sys::Virt::Domain::EVENT_DISK_DROP_MISSING_ON_START + +The disk device was dropped, as its source was missing whe attempting to start the guest =back diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.1/lib/Sys/Virt.pm new/Sys-Virt-1.1.2/lib/Sys/Virt.pm --- old/Sys-Virt-1.1.1/lib/Sys/Virt.pm 2013-07-30 16:34:30.000000000 +0200 +++ new/Sys-Virt-1.1.2/lib/Sys/Virt.pm 2013-09-27 18:30:07.000000000 +0200 @@ -78,7 +78,7 @@ use Sys::Virt::DomainSnapshot; use Sys::Virt::Stream; -our $VERSION = '1.1.1'; +our $VERSION = '1.1.2'; require XSLoader; XSLoader::load('Sys::Virt', $VERSION); @@ -1548,7 +1548,16 @@ Given an array ref whose elements are XML documents describing host CPUs, compute the baseline CPU model that is operable across all hosts. The XML for the baseline CPU model is returned. The optional C<$flags> -parameter is currently unused and defaults to 0. +parameter can take one of + +=over 4 + +=item Sys::Virt::BASELINE_CPU_EXPAND_FEATURES + +Expand the CPU definition to list all feature flags, even those +implied by the model name. + +=back =item my $info = $con->get_node_security_model() diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.1/perl-Sys-Virt.spec new/Sys-Virt-1.1.2/perl-Sys-Virt.spec --- old/Sys-Virt-1.1.1/perl-Sys-Virt.spec 2013-07-30 16:34:51.000000000 +0200 +++ new/Sys-Virt-1.1.2/perl-Sys-Virt.spec 2013-09-27 18:30:18.000000000 +0200 @@ -1,7 +1,7 @@ # Automatically generated by perl-Sys-Virt.spec.PL Name: perl-Sys-Virt -Version: 1.1.1 +Version: 1.1.2 Release: 1%{?dist}%{?extra_release} Summary: Represent and manage a libvirt hypervisor connection License: GPLv2+ or Artistic -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
