Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Sys-Virt for openSUSE:Factory
checked in at 2021-09-10 23:41:36
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Sys-Virt (Old)
and /work/SRC/openSUSE:Factory/.perl-Sys-Virt.new.1899 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Sys-Virt"
Fri Sep 10 23:41:36 2021 rev:85 rq:918010 version:7.7.0
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Sys-Virt/perl-Sys-Virt.changes
2021-07-07 18:31:43.526404406 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Sys-Virt.new.1899/perl-Sys-Virt.changes
2021-09-10 23:42:02.922606463 +0200
@@ -1,0 +2,7 @@
+Fri Sep 3 16:59:17 UTC 2021 - James Fehlig <jfeh...@suse.com>
+
+- Update to 7.7.0
+ - Add all new APIs and constants in libvirt 7.7.0
+ - jsc#SLE-18446
+
+-------------------------------------------------------------------
Old:
----
Sys-Virt-7.5.0.tar.gz
New:
----
Sys-Virt-7.7.0.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Sys-Virt.spec ++++++
--- /var/tmp/diff_new_pack.BfIesW/_old 2021-09-10 23:42:03.410606983 +0200
+++ /var/tmp/diff_new_pack.BfIesW/_new 2021-09-10 23:42:03.414606987 +0200
@@ -17,7 +17,7 @@
Name: perl-Sys-Virt
-Version: 7.5.0
+Version: 7.7.0
Release: 0
%define cpan_name Sys-Virt
Summary: Represent and manage a libvirt hypervisor connection
++++++ Sys-Virt-7.5.0.tar.gz -> Sys-Virt-7.7.0.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-7.5.0/.gitignore
new/Sys-Virt-7.7.0/.gitignore
--- old/Sys-Virt-7.5.0/.gitignore 1970-01-01 01:00:00.000000000 +0100
+++ new/Sys-Virt-7.7.0/.gitignore 2021-09-01 17:28:26.000000000 +0200
@@ -0,0 +1,12 @@
+*~
+META.yml
+META.json
+MYMETA.*
+Makefile.PL
+Sys-Virt-*.tar.gz
+blib/
+perl-Sys-Virt.spec
+lib/Sys/Virt\.c
+lib/Sys/Virt\.o
+_build/
+Build
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-7.5.0/.gitlab-ci.yml
new/Sys-Virt-7.7.0/.gitlab-ci.yml
--- old/Sys-Virt-7.5.0/.gitlab-ci.yml 2021-07-02 11:50:11.000000000 +0200
+++ new/Sys-Virt-7.7.0/.gitlab-ci.yml 2021-09-01 17:28:26.000000000 +0200
@@ -9,7 +9,8 @@
image: docker:stable
stage: containers
services:
- - docker:dind
+ - name: registry.gitlab.com/libvirt/libvirt-ci/docker-dind:master
+ alias: docker
before_script:
- export TAG="$CI_REGISTRY_IMAGE/ci-$NAME:latest"
- export COMMON_TAG="$CI_REGISTRY/libvirt/libvirt-perl/ci-$NAME:latest"
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-7.5.0/Build.PL new/Sys-Virt-7.7.0/Build.PL
--- old/Sys-Virt-7.5.0/Build.PL 2021-07-02 11:50:11.000000000 +0200
+++ new/Sys-Virt-7.7.0/Build.PL 2021-09-01 17:28:26.000000000 +0200
@@ -17,7 +17,7 @@
use strict;
use warnings;
-my $libvirtver = "7.5.0";
+my $libvirtver = "7.7.0";
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-7.5.0/Changes new/Sys-Virt-7.7.0/Changes
--- old/Sys-Virt-7.5.0/Changes 2021-07-02 11:50:11.000000000 +0200
+++ new/Sys-Virt-7.7.0/Changes 2021-09-01 17:28:26.000000000 +0200
@@ -1,5 +1,14 @@
Revision history for perl module Sys::Virt
+7.7.0 2021-09-01
+
+ - Add support for virNWFilterDefineXMLFlags and
+ virNetworkDefineXMLFlags APIs and assoicated
+ flags
+ - Add support for flags with existing
+ virInterfaceDefineXML, virStoragePoolDefineXML
+ and virSecretDefineXML APIs
+
7.5.0 2021-07-02
- Add VIR_FROM_CH
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-7.5.0/README new/Sys-Virt-7.7.0/README
--- old/Sys-Virt-7.5.0/README 2021-07-02 11:50:11.000000000 +0200
+++ new/Sys-Virt-7.7.0/README 2021-09-01 17:28:26.000000000 +0200
@@ -8,6 +8,6 @@
Module::Build buld system. For installation instructions, consult
the INSTALL file.
-The current minimum required version of libvirt is 7.5.0
+The current minimum required version of libvirt is 7.7.0
-- End
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-7.5.0/lib/Sys/Virt/Interface.pm
new/Sys-Virt-7.7.0/lib/Sys/Virt/Interface.pm
--- old/Sys-Virt-7.5.0/lib/Sys/Virt/Interface.pm 2021-07-02
11:50:11.000000000 +0200
+++ new/Sys-Virt-7.7.0/lib/Sys/Virt/Interface.pm 2021-09-01
17:28:26.000000000 +0200
@@ -52,7 +52,7 @@
} elsif (exists $params{mac}) {
$self = Sys::Virt::Interface::_lookup_by_mac($con, $params{mac});
} elsif (exists $params{xml}) {
- $self = Sys::Virt::Interface::_define_xml($con, $params{xml});
+ $self = Sys::Virt::Interface::_define_xml($con, $params{xml},
$params{flags});
} else {
die "name, mac or xml parameters are required";
}
@@ -123,6 +123,19 @@
=back
+=head2 INTERFACE DEFINE
+
+The following constants can be used to control the behaviour
+of interface define operations
+
+=over 4
+
+=item Sys::Virt::Interface::DEFINE_VALIDATE
+
+Validate the XML document against the XML schema
+
+=back
+
=head2 XML CONSTANTS
The following constants are used when querying XML
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-7.5.0/lib/Sys/Virt/NWFilter.pm
new/Sys-Virt-7.7.0/lib/Sys/Virt/NWFilter.pm
--- old/Sys-Virt-7.5.0/lib/Sys/Virt/NWFilter.pm 2021-07-02 11:50:11.000000000
+0200
+++ new/Sys-Virt-7.7.0/lib/Sys/Virt/NWFilter.pm 2021-09-01 17:28:26.000000000
+0200
@@ -59,7 +59,7 @@
die "UUID must be either 16 unsigned bytes, or 32/36 hex characters
long";
}
} elsif (exists $params{xml}) {
- $self = Sys::Virt::NWFilter::_define_xml($con, $params{xml});
+ $self = Sys::Virt::NWFilter::_define_xml($con, $params{xml},
$params{flags});
} else {
die "address, id or uuid parameters are required";
}
@@ -94,6 +94,24 @@
Remove the configuration associated with a network filter previously defined
with the C<define_nwfilter> method in L<Sys::Virt>.
+=back
+
+=head1 CONSTANTS
+
+This section documents constants that are used with various
+APIs described above
+
+=head2 NWFILTER DEFINE
+
+The following constants can be used to control the behaviour
+of network filter define operations
+
+=over 4
+
+=item Sys::Virt::NWFilter::DEFINE_VALIDATE
+
+Validate the XML document against the XML schema
+
=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-7.5.0/lib/Sys/Virt/Network.pm
new/Sys-Virt-7.7.0/lib/Sys/Virt/Network.pm
--- old/Sys-Virt-7.5.0/lib/Sys/Virt/Network.pm 2021-07-02 11:50:11.000000000
+0200
+++ new/Sys-Virt-7.7.0/lib/Sys/Virt/Network.pm 2021-09-01 17:28:26.000000000
+0200
@@ -60,7 +60,7 @@
}
} elsif (exists $params{xml}) {
if ($params{nocreate}) {
- $self = Sys::Virt::Network::_define_xml($con, $params{xml});
+ $self = Sys::Virt::Network::_define_xml($con, $params{xml},
$params{flags});
} else {
$self = Sys::Virt::Network::_create_xml($con, $params{xml});
}
@@ -271,6 +271,19 @@
=back
+=head2 NETWORK DEFINE
+
+The following constants can be used to control the behaviour
+of network define operations
+
+=over 4
+
+=item Sys::Virt::Network::DEFINE_VALIDATE
+
+Validate the XML document against the XML schema
+
+=back
+
=head2 XML CONSTANTS
The following constants are used when querying XML
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-7.5.0/lib/Sys/Virt/Secret.pm
new/Sys-Virt-7.7.0/lib/Sys/Virt/Secret.pm
--- old/Sys-Virt-7.5.0/lib/Sys/Virt/Secret.pm 2021-07-02 11:50:11.000000000
+0200
+++ new/Sys-Virt-7.7.0/lib/Sys/Virt/Secret.pm 2021-09-01 17:28:26.000000000
+0200
@@ -62,7 +62,7 @@
die "UUID must be either 16 unsigned bytes, or 32/36 hex characters
long";
}
} elsif (exists $params{xml}) {
- $self = Sys::Virt::Secret::_define_xml($con, $params{xml});
+ $self = Sys::Virt::Secret::_define_xml($con, $params{xml},
$params{flags});
} else {
die "usageID, xml or uuid parameters are required";
}
@@ -189,6 +189,19 @@
=back
+=head2 SECRET DEFINE
+
+The following constants can be used to control the behaviour
+of secret define operations
+
+=over 4
+
+=item Sys::Virt::Secret::DEFINE_VALIDATE
+
+Validate the XML document against the XML schema
+
+=back
+
=head2 EVENT ID CONSTANTS
=over 4
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-7.5.0/lib/Sys/Virt/StoragePool.pm
new/Sys-Virt-7.7.0/lib/Sys/Virt/StoragePool.pm
--- old/Sys-Virt-7.5.0/lib/Sys/Virt/StoragePool.pm 2021-07-02
11:50:11.000000000 +0200
+++ new/Sys-Virt-7.7.0/lib/Sys/Virt/StoragePool.pm 2021-09-01
17:28:26.000000000 +0200
@@ -66,7 +66,7 @@
$self = Sys::Virt::StoragePool::_lookup_by_target_path($con,
$params{target_path});
} elsif (exists $params{xml}) {
if ($params{nocreate}) {
- $self = Sys::Virt::StoragePool::_define_xml($con, $params{xml});
+ $self = Sys::Virt::StoragePool::_define_xml($con, $params{xml},
$params{flags});
} else {
$self = Sys::Virt::StoragePool::_create_xml($con, $params{xml});
}
@@ -281,6 +281,19 @@
The following sets of constants may be useful in dealing with some of
the methods in this package
+=head2 STORAGE POOL DEFINE
+
+The following constants can be used to control the behaviour
+of storage pool define operations
+
+=over 4
+
+=item Sys::Virt::StoragePool::DEFINE_VALIDATE
+
+Validate the XML document against the XML schema
+
+=back
+
=head2 POOL STATES
The following constants are useful for interpreting the C<state>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-7.5.0/lib/Sys/Virt.pm
new/Sys-Virt-7.7.0/lib/Sys/Virt.pm
--- old/Sys-Virt-7.5.0/lib/Sys/Virt.pm 2021-07-02 11:50:11.000000000 +0200
+++ new/Sys-Virt-7.7.0/lib/Sys/Virt.pm 2021-09-01 17:28:26.000000000 +0200
@@ -81,7 +81,7 @@
use Sys::Virt::DomainCheckpoint;
use Sys::Virt::Stream;
-our $VERSION = '7.5.0';
+our $VERSION = '7.7.0';
require XSLoader;
XSLoader::load('Sys::Virt', $VERSION);
@@ -309,7 +309,7 @@
return Sys::Virt::Network->_new(connection => $self, xml => $xml);
}
-=item my $net = $conn->define_network($xml);
+=item my $net = $conn->define_network($xml, $flags = 0);
Defines, but does not start, a new network based on the XML description
passed into the C<$xml> parameter. The returned object is an instance
@@ -323,11 +323,12 @@
sub define_network {
my $self = shift;
my $xml = shift;
+ my $flags = shift || 0;
- return Sys::Virt::Network->_new(connection => $self, xml => $xml, nocreate
=> 1);
+ return Sys::Virt::Network->_new(connection => $self, xml => $xml, nocreate
=> 1, flags => $flags);
}
-=item my $nwfilter = $conn->define_nwfilter($xml);
+=item my $nwfilter = $conn->define_nwfilter($xml, $flags=0);
Defines a new network filter based on the XML description
passed into the C<$xml> parameter. The returned object is an instance
@@ -339,11 +340,12 @@
sub define_nwfilter {
my $self = shift;
my $xml = shift;
+ my $flags = shift || 0;
- return Sys::Virt::NWFilter->_new(connection => $self, xml => $xml,
nocreate => 1);
+ return Sys::Virt::NWFilter->_new(connection => $self, xml => $xml,
nocreate => 1, flags => $flags);
}
-=item my $secret = $conn->define_secret($xml);
+=item my $secret = $conn->define_secret($xml, $flags=0);
Defines a new secret based on the XML description
passed into the C<$xml> parameter. The returned object is an instance
@@ -355,8 +357,9 @@
sub define_secret {
my $self = shift;
my $xml = shift;
+ my $flags = shift || 0;
- return Sys::Virt::Secret->_new(connection => $self, xml => $xml, nocreate
=> 1);
+ return Sys::Virt::Secret->_new(connection => $self, xml => $xml, nocreate
=> 1, flags => $flags);
}
=item my $pool = $conn->create_storage_pool($xml);
@@ -375,7 +378,7 @@
return Sys::Virt::StoragePool->_new(connection => $self, xml => $xml);
}
-=item my $pool = $conn->define_storage_pool($xml);
+=item my $pool = $conn->define_storage_pool($xml, $flags=0);
Defines, but does not start, a new storage pol based on the XML description
passed into the C<$xml> parameter. The returned object is an instance
@@ -389,8 +392,9 @@
sub define_storage_pool {
my $self = shift;
my $xml = shift;
+ my $flags = shift || 0;
- return Sys::Virt::StoragePool->_new(connection => $self, xml => $xml,
nocreate => 1);
+ return Sys::Virt::StoragePool->_new(connection => $self, xml => $xml,
nocreate => 1, flags => $flags);
}
=item my $pool = $conn->create_interface($xml);
@@ -427,7 +431,7 @@
-=item my $iface = $conn->define_interface($xml);
+=item my $iface = $conn->define_interface($xml, $flags=0);
Defines, but does not start, a new interface based on the XML description
passed into the C<$xml> parameter. The returned object is an instance
@@ -441,8 +445,9 @@
sub define_interface {
my $self = shift;
my $xml = shift;
+ my $flags = shift || 0;
- return Sys::Virt::Interface->_new(connection => $self, xml => $xml,
nocreate => 1);
+ return Sys::Virt::Interface->_new(connection => $self, xml => $xml,
nocreate => 1, flags => $flags);
}
=item my $dev = $conn->create_node_device($xml, $flags=0);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-7.5.0/lib/Sys/Virt.xs
new/Sys-Virt-7.7.0/lib/Sys/Virt.xs
--- old/Sys-Virt-7.5.0/lib/Sys/Virt.xs 2021-07-02 11:50:11.000000000 +0200
+++ new/Sys-Virt-7.7.0/lib/Sys/Virt.xs 2021-09-01 17:28:26.000000000 +0200
@@ -6969,12 +6969,18 @@
virNetworkPtr
-_define_xml(con, xml)
+_define_xml(con, xml, flags=0)
virConnectPtr con;
const char *xml;
+ unsigned int flags;
CODE:
- if (!(RETVAL = virNetworkDefineXML(con, xml)))
- _croak_error();
+ if (flags) {
+ if (!(RETVAL = virNetworkDefineXMLFlags(con, xml, flags)))
+ _croak_error();
+ } else {
+ if (!(RETVAL = virNetworkDefineXML(con, xml)))
+ _croak_error();
+ }
OUTPUT:
RETVAL
@@ -7396,11 +7402,12 @@
virStoragePoolPtr
-_define_xml(con, xml)
+_define_xml(con, xml, flags=0)
virConnectPtr con;
const char *xml;
+ unsigned int flags;
CODE:
- if (!(RETVAL = virStoragePoolDefineXML(con, xml, 0)))
+ if (!(RETVAL = virStoragePoolDefineXML(con, xml, flags)))
_croak_error();
OUTPUT:
RETVAL
@@ -8398,12 +8405,18 @@
virNWFilterPtr
-_define_xml(con, xml)
+_define_xml(con, xml, flags=0)
virConnectPtr con;
const char *xml;
+ unsigned int flags;
CODE:
- if (!(RETVAL = virNWFilterDefineXML(con, xml)))
- _croak_error();
+ if (flags) {
+ if (!(RETVAL = virNWFilterDefineXMLFlags(con, xml, flags)))
+ _croak_error();
+ } else {
+ if (!(RETVAL = virNWFilterDefineXML(con, xml)))
+ _croak_error();
+ }
OUTPUT:
RETVAL
@@ -10240,6 +10253,8 @@
REGISTER_CONSTANT(VIR_STORAGE_POOL_DEGRADED, STATE_DEGRADED);
REGISTER_CONSTANT(VIR_STORAGE_POOL_INACCESSIBLE, STATE_INACCESSIBLE);
+ REGISTER_CONSTANT(VIR_STORAGE_POOL_DEFINE_VALIDATE, DEFINE_VALIDATE);
+
REGISTER_CONSTANT(VIR_STORAGE_POOL_BUILD_NEW, BUILD_NEW);
REGISTER_CONSTANT(VIR_STORAGE_POOL_BUILD_REPAIR, BUILD_REPAIR);
REGISTER_CONSTANT(VIR_STORAGE_POOL_BUILD_RESIZE, BUILD_RESIZE);
@@ -10293,6 +10308,8 @@
stash = gv_stashpv( "Sys::Virt::Network", TRUE );
REGISTER_CONSTANT(VIR_NETWORK_XML_INACTIVE, XML_INACTIVE);
+ REGISTER_CONSTANT(VIR_NETWORK_DEFINE_VALIDATE, DEFINE_VALIDATE);
+
REGISTER_CONSTANT(VIR_NETWORK_UPDATE_COMMAND_NONE, UPDATE_COMMAND_NONE);
REGISTER_CONSTANT(VIR_NETWORK_UPDATE_COMMAND_MODIFY,
UPDATE_COMMAND_MODIFY);
REGISTER_CONSTANT(VIR_NETWORK_UPDATE_COMMAND_DELETE,
UPDATE_COMMAND_DELETE);
@@ -10346,6 +10363,8 @@
stash = gv_stashpv( "Sys::Virt::Interface", TRUE );
REGISTER_CONSTANT(VIR_INTERFACE_XML_INACTIVE, XML_INACTIVE);
+ REGISTER_CONSTANT(VIR_INTERFACE_DEFINE_VALIDATE, DEFINE_VALIDATE);
+
REGISTER_CONSTANT(VIR_CONNECT_LIST_INTERFACES_ACTIVE, LIST_ACTIVE);
REGISTER_CONSTANT(VIR_CONNECT_LIST_INTERFACES_INACTIVE, LIST_INACTIVE);
@@ -10431,6 +10450,7 @@
REGISTER_CONSTANT(VIR_SECRET_USAGE_TYPE_TLS, USAGE_TYPE_TLS);
REGISTER_CONSTANT(VIR_SECRET_USAGE_TYPE_VTPM, USAGE_TYPE_VTPM);
+ REGISTER_CONSTANT(VIR_SECRET_DEFINE_VALIDATE, DEFINE_VALIDATE);
REGISTER_CONSTANT(VIR_CONNECT_LIST_SECRETS_EPHEMERAL, LIST_EPHEMERAL);
REGISTER_CONSTANT(VIR_CONNECT_LIST_SECRETS_NO_EPHEMERAL,
LIST_NO_EPHEMERAL);
@@ -10444,6 +10464,10 @@
REGISTER_CONSTANT(VIR_SECRET_EVENT_UNDEFINED, EVENT_UNDEFINED);
+ stash = gv_stashpv( "Sys::Virt::NWFilter", TRUE );
+ REGISTER_CONSTANT(VIR_NWFILTER_DEFINE_VALIDATE, DEFINE_VALIDATE);
+
+
stash = gv_stashpv( "Sys::Virt::Stream", TRUE );
REGISTER_CONSTANT(VIR_STREAM_NONBLOCK, NONBLOCK);
++++++ _service ++++++
--- /var/tmp/diff_new_pack.BfIesW/_old 2021-09-10 23:42:03.514607093 +0200
+++ /var/tmp/diff_new_pack.BfIesW/_new 2021-09-10 23:42:03.518607097 +0200
@@ -1,7 +1,7 @@
<services>
<service name="tar_scm" mode="disabled">
<param name="filename">Sys-Virt</param>
- <param name="revision">ce55f55c91c4bf4252bb4446d631845d0260866f</param>
+ <param name="revision">v7.7.0</param>
<param name="scm">git</param>
<param name="submodules">disable</param>
<param name="url">https://gitlab.com/libvirt/libvirt-perl.git</param>
++++++ suse-set-migration-constraints.patch ++++++
--- /var/tmp/diff_new_pack.BfIesW/_old 2021-09-10 23:42:03.526607106 +0200
+++ /var/tmp/diff_new_pack.BfIesW/_new 2021-09-10 23:42:03.530607110 +0200
@@ -2,10 +2,10 @@
References: fate#316614, bsc#859868
-Index: Sys-Virt-7.5.0/lib/Sys/Virt/Domain.pm
+Index: Sys-Virt-7.7.0/lib/Sys/Virt/Domain.pm
===================================================================
---- Sys-Virt-7.5.0.orig/lib/Sys/Virt/Domain.pm
-+++ Sys-Virt-7.5.0/lib/Sys/Virt/Domain.pm
+--- Sys-Virt-7.7.0.orig/lib/Sys/Virt/Domain.pm
++++ Sys-Virt-7.7.0/lib/Sys/Virt/Domain.pm
@@ -1176,6 +1176,18 @@ omitted libvirt will auto-generate suita
only necessary to specify this URI if the destination host has multiple
interfaces and a specific interface is required to transmit storage data.
@@ -25,10 +25,10 @@
=back
=item $ddom = $dom->migrate(destcon, flags=0, dname=undef, uri=undef,
bandwidth=0)
-Index: Sys-Virt-7.5.0/lib/Sys/Virt.xs
+Index: Sys-Virt-7.7.0/lib/Sys/Virt.xs
===================================================================
---- Sys-Virt-7.5.0.orig/lib/Sys/Virt.xs
-+++ Sys-Virt-7.5.0/lib/Sys/Virt.xs
+--- Sys-Virt-7.7.0.orig/lib/Sys/Virt.xs
++++ Sys-Virt-7.7.0/lib/Sys/Virt.xs
@@ -5535,7 +5535,7 @@ _migrate(dom, destcon, newparams, flags=
virTypedParameterPtr params;
int nparams;
@@ -85,7 +85,7 @@
nparams = vir_typed_param_from_hv(newparams, params, nparams);
vir_typed_param_add_string_list_from_hv(newparams, ¶ms, &nparams,
-@@ -9538,6 +9562,9 @@ BOOT:
+@@ -9551,6 +9575,9 @@ BOOT:
REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_DISKS_URI,
MIGRATE_PARAM_DISKS_URI);
REGISTER_CONSTANT(VIR_DOMAIN_MIGRATE_MAX_SPEED_POSTCOPY,
MIGRATE_MAX_SPEED_POSTCOPY);
