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 - jfehlig@suse.com
+
+- 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
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 CSys::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 CSys::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