Hello community, here is the log from the commit of package perl-Sys-Virt for openSUSE:Factory checked in at 2015-07-25 07:44:35 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 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 2015-06-12 20:30:23.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Sys-Virt.new/perl-Sys-Virt.changes 2015-07-25 07:44:36.000000000 +0200 @@ -1,0 +2,6 @@ +Fri Jul 17 15:11:02 UTC 2015 - [email protected] + +- Update to 1.2.17 + - Add all new APIs and constants in libvirt 1.2.17 + +------------------------------------------------------------------- Old: ---- Sys-Virt-1.2.16.tar.gz New: ---- Sys-Virt-1.2.17.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Sys-Virt.spec ++++++ --- /var/tmp/diff_new_pack.82QJV3/_old 2015-07-25 07:44:37.000000000 +0200 +++ /var/tmp/diff_new_pack.82QJV3/_new 2015-07-25 07:44:37.000000000 +0200 @@ -17,7 +17,7 @@ Name: perl-Sys-Virt -Version: 1.2.16 +Version: 1.2.17 Release: 0 %define cpan_name Sys-Virt Summary: Represent and manage a libvirt hypervisor connection ++++++ Sys-Virt-1.2.16.tar.gz -> Sys-Virt-1.2.17.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.16/Changes new/Sys-Virt-1.2.17/Changes --- old/Sys-Virt-1.2.16/Changes 2015-06-01 11:23:37.000000000 +0200 +++ new/Sys-Virt-1.2.17/Changes 2015-07-17 15:33:30.000000000 +0200 @@ -1,5 +1,12 @@ Revision history for perl module Sys::Virt +1.2.17 2015-07-17 + + - Add VIR_FROM_ADMIN constant + - Add VIR_MIGRATE_PARAM_MIGRATE_DISKS constant + - Fix docs typos in migrate_to_uri method + - Add VIR_DOMAIN_EVENT_WATCHDOG_INJECTNMI constant + 1.2.16 2015-06-01 - Add support for virDomainSetUserPassword diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.16/MANIFEST new/Sys-Virt-1.2.17/MANIFEST --- old/Sys-Virt-1.2.16/MANIFEST 2015-06-01 11:23:49.000000000 +0200 +++ new/Sys-Virt-1.2.17/MANIFEST 2015-07-17 15:33:52.000000000 +0200 @@ -5,6 +5,7 @@ examples/dhcp-leases.pl examples/dom-fsinfo.pl examples/dom-ifinfo.pl +examples/dom-migrate.pl examples/dom-stats.pl examples/dump-info.pl examples/dump-xml.pl diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.16/META.yml new/Sys-Virt-1.2.17/META.yml --- old/Sys-Virt-1.2.16/META.yml 2015-06-01 11:23:49.000000000 +0200 +++ new/Sys-Virt-1.2.17/META.yml 2015-07-17 15:33:52.000000000 +0200 @@ -1,7 +1,7 @@ --- #YAML:1.0 name: Sys-Virt abstract: Extension for the libvirt library -version: 1.2.16 +version: 1.2.17 author: - Daniel P. Berrange <[email protected]> license: perl diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.16/MYMETA.json new/Sys-Virt-1.2.17/MYMETA.json --- old/Sys-Virt-1.2.16/MYMETA.json 2015-06-01 11:23:40.000000000 +0200 +++ new/Sys-Virt-1.2.17/MYMETA.json 2015-07-17 15:33:44.000000000 +0200 @@ -42,5 +42,5 @@ } }, "release_status" : "stable", - "version" : "v1.2.16" + "version" : "v1.2.17" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.16/MYMETA.yml new/Sys-Virt-1.2.17/MYMETA.yml --- old/Sys-Virt-1.2.16/MYMETA.yml 2015-06-01 11:23:40.000000000 +0200 +++ new/Sys-Virt-1.2.17/MYMETA.yml 2015-07-17 15:33:44.000000000 +0200 @@ -24,4 +24,4 @@ Test::Pod::Coverage: '0' Time::HiRes: '0' XML::XPath: '0' -version: v1.2.16 +version: v1.2.17 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.16/Makefile.PL new/Sys-Virt-1.2.17/Makefile.PL --- old/Sys-Virt-1.2.16/Makefile.PL 2015-06-01 11:23:37.000000000 +0200 +++ new/Sys-Virt-1.2.17/Makefile.PL 2015-07-17 15:33:30.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.2.16"; +my $libvirtver = "1.2.17"; 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; @@ -26,7 +26,7 @@ -Wmissing-declarations -Wmissing-field-initializers \\ -Wmissing-format-attribute -Wmissing-include-dirs \\ -Wmissing-noreturn -Wmissing-parameter-type \\ - -Wmudflap -Wmultichar -Wnarrowing -Wnonnull \\ + -Wmultichar -Wnarrowing -Wnonnull \\ -Wnormalized=nfc -Wold-style-declaration -Wold-style-definition \\ -Woverflow -Woverride-init -Wpacked-bitfield-compat -Wparentheses \\ -Wpointer-arith -Wpointer-sign -Wpointer-to-int-cast -Wpragmas \\ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.16/README new/Sys-Virt-1.2.17/README --- old/Sys-Virt-1.2.16/README 2015-06-01 11:23:37.000000000 +0200 +++ new/Sys-Virt-1.2.17/README 2015-07-17 15:33:30.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.2.16 +The current minimum required version of libvirt is 1.2.17 -- End diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.16/Virt.xs new/Sys-Virt-1.2.17/Virt.xs --- old/Sys-Virt-1.2.16/Virt.xs 2015-06-01 11:23:37.000000000 +0200 +++ new/Sys-Virt-1.2.17/Virt.xs 2015-07-17 15:33:30.000000000 +0200 @@ -272,6 +272,41 @@ } +static void +vir_typed_param_add_string_list_from_hv(HV *newparams, + virTypedParameter **params, + int *nparams, + const char *key) +{ + if (!hv_exists(newparams, key, strlen(key))) { + return; + } + SSize_t nstr, i; + virTypedParameter *localparams = *params; + + SV **val = hv_fetch(newparams, key, strlen(key), 0); + AV *av = (AV*)(SvRV(*val)); + nstr = av_len(av) + 1; + + Renew(localparams, *nparams + nstr, virTypedParameter); + + for (i = 0 ; i < nstr ; i++) { + STRLEN len; + SV **subval = av_fetch(av, i, 0); + char *ptr = SvPV(*subval, len); + + strncpy(localparams[*nparams + i].field, key, + VIR_TYPED_PARAM_FIELD_LENGTH); + + localparams[*nparams + i].type = VIR_TYPED_PARAM_STRING; + localparams[*nparams + i].value.s = ptr; + } + + *params = localparams; + *nparams += nstr; +} + + static int _domain_event_lifecycle_callback(virConnectPtr con, virDomainPtr dom, @@ -4374,9 +4409,11 @@ VIR_TYPED_PARAM_FIELD_LENGTH); params[5].type = VIR_TYPED_PARAM_STRING; - nparams = vir_typed_param_from_hv(newparams, params, nparams); + vir_typed_param_add_string_list_from_hv(newparams, ¶ms, &nparams, + VIR_MIGRATE_PARAM_MIGRATE_DISKS); + /* No need to support virDomainMigrate/virDomainMigrate2, since * virDomainMigrate3 takes care to call the older APIs internally * if it is possible todo so @@ -4429,6 +4466,9 @@ nparams = vir_typed_param_from_hv(newparams, params, nparams); + vir_typed_param_add_string_list_from_hv(newparams, ¶ms, &nparams, + VIR_MIGRATE_PARAM_MIGRATE_DISKS); + /* No need to support virDomainMigrateToURI/virDomainMigrateToURI2, since * virDomainMigrate3 takes care to call the older APIs internally * if it is possible todo so @@ -7448,6 +7488,7 @@ REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_GRAPHICS_URI, MIGRATE_PARAM_GRAPHICS_URI); REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_URI, MIGRATE_PARAM_URI); REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_LISTEN_ADDRESS, MIGRATE_PARAM_LISTEN_ADDRESS); + REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_MIGRATE_DISKS, MIGRATE_PARAM_MIGRATE_DISKS); REGISTER_CONSTANT(VIR_DOMAIN_XML_SECURE, XML_SECURE); REGISTER_CONSTANT(VIR_DOMAIN_XML_INACTIVE, XML_INACTIVE); @@ -7648,6 +7689,7 @@ REGISTER_CONSTANT(VIR_DOMAIN_EVENT_WATCHDOG_POWEROFF, EVENT_WATCHDOG_POWEROFF); REGISTER_CONSTANT(VIR_DOMAIN_EVENT_WATCHDOG_SHUTDOWN, EVENT_WATCHDOG_SHUTDOWN); REGISTER_CONSTANT(VIR_DOMAIN_EVENT_WATCHDOG_DEBUG, EVENT_WATCHDOG_DEBUG); + REGISTER_CONSTANT(VIR_DOMAIN_EVENT_WATCHDOG_INJECTNMI, EVENT_WATCHDOG_INJECTNMI); REGISTER_CONSTANT(VIR_DOMAIN_EVENT_IO_ERROR_NONE, EVENT_IO_ERROR_NONE); REGISTER_CONSTANT(VIR_DOMAIN_EVENT_IO_ERROR_PAUSE, EVENT_IO_ERROR_PAUSE); @@ -8182,6 +8224,7 @@ REGISTER_CONSTANT(VIR_FROM_FIREWALL, FROM_FIREWALL); REGISTER_CONSTANT(VIR_FROM_POLKIT, FROM_POLKIT); REGISTER_CONSTANT(VIR_FROM_THREAD, FROM_THREAD); + REGISTER_CONSTANT(VIR_FROM_ADMIN, FROM_ADMIN); REGISTER_CONSTANT(VIR_ERR_OK, ERR_OK); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.16/examples/dom-migrate.pl new/Sys-Virt-1.2.17/examples/dom-migrate.pl --- old/Sys-Virt-1.2.16/examples/dom-migrate.pl 1970-01-01 01:00:00.000000000 +0100 +++ new/Sys-Virt-1.2.17/examples/dom-migrate.pl 2015-07-17 15:33:30.000000000 +0200 @@ -0,0 +1,29 @@ +#!/usr/bin/perl + + +use strict; +use warnings; + +use Sys::Virt; +use Sys::Virt::Domain; + +if (int(@ARGV) < 4) { + die "syntax: $0 URI DOMAIN DEST-URI DISK1 [DISK2 [DISK3 ...]]"; +} + +my $uri = shift @ARGV; + +my $c = Sys::Virt->new(uri => $uri); + +my $dom = $c->get_domain_by_name(shift @ARGV); + +my $desturi = shift @ARGV; + +my @disks = @ARGV; + + +$dom->migrate_to_uri( + $desturi, { + Sys::Virt::Domain::MIGRATE_PARAM_MIGRATE_DISKS => \@disks, + }, + Sys::Virt::Domain::MIGRATE_PEER2PEER); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.16/lib/Sys/Virt/Domain.pm new/Sys-Virt-1.2.17/lib/Sys/Virt/Domain.pm --- old/Sys-Virt-1.2.16/lib/Sys/Virt/Domain.pm 2015-06-01 11:23:37.000000000 +0200 +++ new/Sys-Virt-1.2.17/lib/Sys/Virt/Domain.pm 2015-07-17 15:33:30.000000000 +0200 @@ -977,6 +977,13 @@ =back +=item C<Sys::Virt::Domain::MIGRATE_PARAM_MIGRATE_DISKS> + +The list of disks to migrate when doing block storage migration. +In constrast to other parameters whose values are plain strings, +the parameter value should be an array reference, whose elements +are in turn strings representing the disk target names. + =item $ddom = $dom->migrate(destcon, flags=0, dname=undef, uri=undef, bandwidth=0) Migrate a domain to an alternative host. Use of positional parameters @@ -1044,9 +1051,9 @@ } -=item $ddom = $dom->migrate_to_uri(destcon, \%params, flags=0) +=item $ddom = $dom->migrate_to_uri(desturi, \%params, flags=0) -Migrate a domain to an alternative host. The C<destri> parameter +Migrate a domain to an alternative host. The C<desturi> parameter should be a valid libvirt connection URI for the remote target host. The C<flags> parameter takes one or more of the C<Sys::Virt::Domain::MIGRATE_XXX> constants described later in this document. The C<%params> parameter is @@ -2936,6 +2943,10 @@ No action was taken, the watchdog was logged +=item Sys::Virt::Domain::EVENT_WATCHDOG_INJECTNMI + +An NMI was injected into the guest after the watchdog fired + =back =head2 GRAPHICS EVENT PHASE CONSTANTS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.16/lib/Sys/Virt/Error.pm new/Sys-Virt-1.2.17/lib/Sys/Virt/Error.pm --- old/Sys-Virt-1.2.16/lib/Sys/Virt/Error.pm 2015-06-01 11:23:37.000000000 +0200 +++ new/Sys-Virt-1.2.17/lib/Sys/Virt/Error.pm 2015-07-17 15:33:30.000000000 +0200 @@ -382,6 +382,10 @@ The thread helper utils +=item Sys::Virt::Error::FROM_ADMIN + +The administrative service + =back =head2 ERROR CODE CONSTANTS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.16/lib/Sys/Virt.pm new/Sys-Virt-1.2.17/lib/Sys/Virt.pm --- old/Sys-Virt-1.2.16/lib/Sys/Virt.pm 2015-06-01 11:23:37.000000000 +0200 +++ new/Sys-Virt-1.2.17/lib/Sys/Virt.pm 2015-07-17 15:33:30.000000000 +0200 @@ -78,7 +78,7 @@ use Sys::Virt::DomainSnapshot; use Sys::Virt::Stream; -our $VERSION = '1.2.16'; +our $VERSION = '1.2.17'; require XSLoader; XSLoader::load('Sys::Virt', $VERSION); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.16/perl-Sys-Virt.spec new/Sys-Virt-1.2.17/perl-Sys-Virt.spec --- old/Sys-Virt-1.2.16/perl-Sys-Virt.spec 2015-06-01 11:23:49.000000000 +0200 +++ new/Sys-Virt-1.2.17/perl-Sys-Virt.spec 2015-07-17 15:33:52.000000000 +0200 @@ -1,7 +1,7 @@ # Automatically generated by perl-Sys-Virt.spec.PL Name: perl-Sys-Virt -Version: 1.2.16 +Version: 1.2.17 Release: 1%{?dist}%{?extra_release} Summary: Represent and manage a libvirt hypervisor connection License: GPLv2+ or Artistic diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.2.16/t/030-api-coverage.t new/Sys-Virt-1.2.17/t/030-api-coverage.t --- old/Sys-Virt-1.2.16/t/030-api-coverage.t 2015-06-01 11:23:37.000000000 +0200 +++ new/Sys-Virt-1.2.17/t/030-api-coverage.t 2015-07-17 15:33:30.000000000 +0200 @@ -118,6 +118,7 @@ virTypedParamsAddInt virTypedParamsAddLLong virTypedParamsAddString +virTypedParamsAddStringList virTypedParamsAddUInt virTypedParamsAddULLong virTypedParamsClear
