Hello community,
here is the log from the commit of package perl-Sys-Virt for openSUSE:Factory
checked in at 2019-08-19 21:27:57
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Sys-Virt (Old)
and /work/SRC/openSUSE:Factory/.perl-Sys-Virt.new.22127 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Sys-Virt"
Mon Aug 19 21:27:57 2019 rev:71 rq:722938 version:5.6.0
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Sys-Virt/perl-Sys-Virt.changes
2019-08-01 15:48:53.449736997 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Sys-Virt.new.22127/perl-Sys-Virt.changes
2019-08-19 21:28:00.700638698 +0200
@@ -1,0 +2,6 @@
+Mon Aug 12 22:33:04 UTC 2019 - James Fehlig <jfeh...@suse.com>
+
+- Update to 5.6.0
+ - Add all new APIs and constants in libvirt 5.6.0
+
+-------------------------------------------------------------------
Old:
----
Sys-Virt-v5.5.0.tar.gz
New:
----
Sys-Virt-v5.6.0.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Sys-Virt.spec ++++++
--- /var/tmp/diff_new_pack.n1rXoQ/_old 2019-08-19 21:28:01.456638544 +0200
+++ /var/tmp/diff_new_pack.n1rXoQ/_new 2019-08-19 21:28:01.456638544 +0200
@@ -17,7 +17,7 @@
Name: perl-Sys-Virt
-Version: 5.5.0
+Version: 5.6.0
Release: 0
%define cpan_name Sys-Virt
Summary: Represent and manage a libvirt hypervisor connection
++++++ Sys-Virt-v5.5.0.tar.gz -> Sys-Virt-v5.6.0.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-v5.5.0/Build.PL new/Sys-Virt-v5.6.0/Build.PL
--- old/Sys-Virt-v5.5.0/Build.PL 2019-07-03 13:40:17.000000000 +0200
+++ new/Sys-Virt-v5.6.0/Build.PL 2019-08-06 14:57:45.000000000 +0200
@@ -17,7 +17,7 @@
use strict;
use warnings;
-my $libvirtver = "5.5.0";
+my $libvirtver = "5.6.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-v5.5.0/Changes new/Sys-Virt-v5.6.0/Changes
--- old/Sys-Virt-v5.5.0/Changes 2019-07-03 13:40:17.000000000 +0200
+++ new/Sys-Virt-v5.6.0/Changes 2019-08-06 14:57:45.000000000 +0200
@@ -1,5 +1,13 @@
Revision history for perl module Sys::Virt
+5.6.0 2019-08-06
+
+ - Add VIR_DOMAIN_SNAPSHOT_CREATE_VALIDATE constant
+ - Add VIR_CONNECT_LIST_STORAGE_POOLS_ISCSI_DIRECT constant
+ - Add VIR_FROM_TPM constant
+ - Add VIR_SECRET_USAGE_TYPE_VTPM constant
+ - Add DomainCheckpoint class and associated constants
+
5.5.0 2019-07-03
- Add support for virNetworkPortPtr object and its APIs
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-v5.5.0/MANIFEST new/Sys-Virt-v5.6.0/MANIFEST
--- old/Sys-Virt-v5.5.0/MANIFEST 2019-07-03 13:40:17.000000000 +0200
+++ new/Sys-Virt-v5.6.0/MANIFEST 2019-08-06 14:57:45.000000000 +0200
@@ -37,6 +37,7 @@
lib/Sys/Virt.xs
lib/Sys/Virt/Domain.pm
lib/Sys/Virt/DomainSnapshot.pm
+lib/Sys/Virt/DomainCheckpoint.pm
lib/Sys/Virt/Error.pm
lib/Sys/Virt/Event.pm
lib/Sys/Virt/Interface.pm
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-v5.5.0/META.json
new/Sys-Virt-v5.6.0/META.json
--- old/Sys-Virt-v5.5.0/META.json 2019-07-03 13:40:17.000000000 +0200
+++ new/Sys-Virt-v5.6.0/META.json 2019-08-06 14:57:45.000000000 +0200
@@ -41,11 +41,14 @@
"provides" : {
"Sys::Virt" : {
"file" : "lib/Sys/Virt.pm",
- "version" : "v5.5.0"
+ "version" : "v5.6.0"
},
"Sys::Virt::Domain" : {
"file" : "lib/Sys/Virt/Domain.pm"
},
+ "Sys::Virt::DomainCheckpoint" : {
+ "file" : "lib/Sys/Virt/DomainCheckpoint.pm"
+ },
"Sys::Virt::DomainSnapshot" : {
"file" : "lib/Sys/Virt/DomainSnapshot.pm"
},
@@ -97,6 +100,6 @@
},
"x_MailingList" : "http://www.redhat.com/mailman/listinfo/libvir-list";
},
- "version" : "v5.5.0",
+ "version" : "v5.6.0",
"x_serialization_backend" : "JSON::PP version 4.02"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-v5.5.0/META.yml new/Sys-Virt-v5.6.0/META.yml
--- old/Sys-Virt-v5.5.0/META.yml 2019-07-03 13:40:17.000000000 +0200
+++ new/Sys-Virt-v5.6.0/META.yml 2019-08-06 14:57:45.000000000 +0200
@@ -24,9 +24,11 @@
provides:
Sys::Virt:
file: lib/Sys/Virt.pm
- version: v5.5.0
+ version: v5.6.0
Sys::Virt::Domain:
file: lib/Sys/Virt/Domain.pm
+ Sys::Virt::DomainCheckpoint:
+ file: lib/Sys/Virt/DomainCheckpoint.pm
Sys::Virt::DomainSnapshot:
file: lib/Sys/Virt/DomainSnapshot.pm
Sys::Virt::Error:
@@ -60,5 +62,5 @@
homepage: http://libvirt.org/
license: http://www.gnu.org/licenses/gpl.html
repository: https://libvirt.org/git/?p=libvirt-perl.git;a=summary
-version: v5.5.0
+version: v5.6.0
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-v5.5.0/README new/Sys-Virt-v5.6.0/README
--- old/Sys-Virt-v5.5.0/README 2019-07-03 13:40:17.000000000 +0200
+++ new/Sys-Virt-v5.6.0/README 2019-08-06 14:57:45.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 5.5.0
+The current minimum required version of libvirt is 5.6.0
-- End
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-v5.5.0/lib/Sys/Virt/Domain.pm
new/Sys-Virt-v5.6.0/lib/Sys/Virt/Domain.pm
--- old/Sys-Virt-v5.5.0/lib/Sys/Virt/Domain.pm 2019-07-03 13:40:17.000000000
+0200
+++ new/Sys-Virt-v5.6.0/lib/Sys/Virt/Domain.pm 2019-08-06 14:57:45.000000000
+0200
@@ -1927,6 +1927,27 @@
return $snapshot;
}
+=item my @checkpoints = $dom->list_all_checkpoints($flags)
+
+Return a list of all domain checkpoints associated with this domain.
+The elements in the returned list are instances of the
+L<Sys::Virt::DomainCheckpoint> class. The C<$flags> parameter can be
+used to filter the list of return domain checkpoints.
+
+=item my $checkpoint = $dom->get_checkpoint_by_name($name)
+
+Return the domain checkpoint with a name of C<$name>. The returned object is
+an instance of the L<Sys::Virt::DomainCheckpoint> class.
+
+=cut
+
+sub get_checkpoint_by_name {
+ my $self = shift;
+ my $name = shift;
+
+ return Sys::Virt::DomainCheckpoint->_new(domain => $self, name => $name);
+}
+
1;
=item $dom->fs_trim($mountPoint, $minimum, $flags=0);
@@ -2579,6 +2600,11 @@
keep NVRAM state file when undefining the virtual
domain.
+=item Sys::Virt::Domain::UNDEFINE_CHECKPOINTS_METADATA
+
+Also remove any checkpoint metadata when undefining the virtual
+domain.
+
=back
=head2 JOB TYPES
@@ -4058,6 +4084,14 @@
Only list domains that do not have a persistent config
+=item Sys::Virt::Domain::LIST_HAS_CHECKPOINT
+
+Only list domains that have a stored checkpoint
+
+=item Sys::Virt::Domain::LIST_NO_CHECKPOINT
+
+Only list domains that do not have a stored checkpoint
+
=back
=head2 SEND KEY CONSTANTS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-v5.5.0/lib/Sys/Virt/DomainCheckpoint.pm
new/Sys-Virt-v5.6.0/lib/Sys/Virt/DomainCheckpoint.pm
--- old/Sys-Virt-v5.5.0/lib/Sys/Virt/DomainCheckpoint.pm 1970-01-01
01:00:00.000000000 +0100
+++ new/Sys-Virt-v5.6.0/lib/Sys/Virt/DomainCheckpoint.pm 2019-08-06
14:57:45.000000000 +0200
@@ -0,0 +1,211 @@
+# -*- perl -*-
+#
+# Copyright (C) 2006 Red Hat
+# Copyright (C) 2006-2007 Daniel P. Berrange
+#
+# This program is free software; You can redistribute it and/or modify
+# it under either:
+#
+# a) the GNU General Public License as published by the Free
+# Software Foundation; either version 2, or (at your option) any
+# later version,
+#
+# or
+#
+# b) the "Artistic License"
+#
+# The file "LICENSE" distributed along with this file provides full
+# details of the terms and conditions of the two licenses.
+
+=pod
+
+=head1 NAME
+
+Sys::Virt::DomainCheckpoint - Represent & manage a libvirt guest domain
checkpoint
+
+=head1 DESCRIPTION
+
+The C<Sys::Virt::DomainCheckpoint> module represents a guest domain
+checkpoint managed by the virtual machine monitor.
+
+=head1 METHODS
+
+=over 4
+
+=cut
+
+package Sys::Virt::DomainCheckpoint;
+
+use strict;
+use warnings;
+
+
+sub _new {
+ my $proto = shift;
+ my $class = ref($proto) || $proto;
+ my %params = @_;
+
+ my $dom = exists $params{domain} ? $params{domain} : die "domain parameter
is required";
+ my $self;
+ if (exists $params{name}) {
+ $self = Sys::Virt::DomainCheckpoint::_lookup_by_name($dom,
$params{name});
+ } elsif (exists $params{xml}) {
+ $self = Sys::Virt::DomainCheckpoint::_create_xml($dom, $params{xml},
$params{flags} ? $params{flags} : 0);
+ } else {
+ die "name or xml parameters are required";
+ }
+
+ bless $self, $class;
+
+ return $self;
+}
+
+=item my $str = $domss->get_name()
+
+Return the name of the checkpoint
+
+=item my $xml = $domss->get_xml_description($flags)
+
+Returns an XML document containing a complete description of
+the domain's configuration. The C<$flags> parameter
+accepts the following constants
+
+=over 4
+
+=item Sys::Virt::DomainCheckpoint::XML_SECURE
+
+Include security sensitive information in the XML dump, such as
+passwords.
+
+=item Sys::Virt::DomainCheckpoint::XML_SIZE
+
+Inlude dynamic per-<disk> size information
+
+=item Sys::Virt::DomainCheckpoint::XML_NO_DOMAIN
+
+Supress <domain> sub-element
+
+=back
+
+=item $domss->delete($flags)
+
+Deletes this checkpoint object & its data. The optional C<$flags> parameter
controls
+what should be deleted via the C<Sys::Virt::DomainCheckpoint::DELETE_*>
+constants.
+
+=item $parentss = $domss->get_parent();
+
+Return the parent of the checkpoint, if any
+
+=item $res = $domss->has_metadata()
+
+Returns a true value if this checkpoint has metadata associated with
+it.
+
+=item my @checkpoints = $domss->list_all_children($flags)
+
+Return a list of all domain checkpoints that are children of this
+checkpoint. The elements in the returned list are instances of the
+L<Sys::Virt::DomainCheckpoint> class. The C<$flags> parameter can be
+used to filter the list of return domain checkpoints.
+
+=back
+
+=head1 CONSTANTS
+
+=head2 CHECKPOINT CREATION
+
+The following constants are useful when creating checkpoints
+
+=over 4
+
+=item Sys::Virt::DomainCheckpoint::CREATE_REDEFINE
+
+Replace/set the metadata with the checkpoint
+
+=item Sys::Virt::DomainCheckpoint::CREATE_QUIESCE
+
+Quiesce the guest disks while taking the checkpoint
+
+=back
+
+=head2 CHECKPOINT DELETION
+
+The following constants are useful when deleting checkpoints
+
+=over 4
+
+=item Sys::Virt::DomainCheckpoint::DELETE_CHILDREN
+
+Recursively delete any child checkpoints
+
+=item Sys::Virt::DomainCheckpoint::DELETE_CHILDREN_ONLY
+
+Only delete the child checkpoints
+
+=item Sys::Virt::DomainCheckpoint::DELETE_METADATA_ONLY
+
+Only delete the checkpoint metadata
+
+=back
+
+=head2 CHECKPOINT LIST
+
+The following constants are useful when listing checkpoints
+
+=over 4
+
+=item Sys::Virt::DomainCheckpoint::LIST_ROOTS
+
+Only list checkpoints which are root nodes in the tree
+
+=item Sys::Virt::DomainCheckpoint::LIST_DESCENDANTS
+
+Only list checkpoints which are descendants of the current
+checkpoint
+
+=item Sys::Virt::DomainCheckpoint::LIST_LEAVES
+
+Only list leaf nodes in the checkpoint tree
+
+=item Sys::Virt::DomainCheckpoint::LIST_NO_LEAVES
+
+Only list non-leaf nodes in the checkpoint tree
+
+=item Sys::Virt::DomainCheckpoint::LIST_TOPOLOGICAL
+
+Sort list in topological order wrt to parent/child
+relationships.
+
+=back
+
+=over 4
+
+=cut
+
+1;
+
+=back
+
+=head1 AUTHORS
+
+Daniel P. Berrange <berra...@redhat.com>
+
+=head1 COPYRIGHT
+
+Copyright (C) 2006 Red Hat
+Copyright (C) 2006-2007 Daniel P. Berrange
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of either the GNU General Public License as published
+by the Free Software Foundation (either version 2 of the License, or at
+your option any later version), or, the Artistic License, as specified
+in the Perl README file.
+
+=head1 SEE ALSO
+
+L<Sys::Virt>, L<Sys::Virt::Error>, C<http://libvirt.org>
+
+=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-v5.5.0/lib/Sys/Virt/DomainSnapshot.pm
new/Sys-Virt-v5.6.0/lib/Sys/Virt/DomainSnapshot.pm
--- old/Sys-Virt-v5.5.0/lib/Sys/Virt/DomainSnapshot.pm 2019-07-03
13:40:17.000000000 +0200
+++ new/Sys-Virt-v5.6.0/lib/Sys/Virt/DomainSnapshot.pm 2019-08-06
14:57:45.000000000 +0200
@@ -194,6 +194,10 @@
Create snapshot while the guest is running
+=item Sys::Virt::DomainSnapshot::CREATE_VALIDATE
+
+Validate the XML document against the schema
+
=back
=head2 SNAPSHOT DELETION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-v5.5.0/lib/Sys/Virt/Error.pm
new/Sys-Virt-v5.6.0/lib/Sys/Virt/Error.pm
--- old/Sys-Virt-v5.5.0/lib/Sys/Virt/Error.pm 2019-07-03 13:40:17.000000000
+0200
+++ new/Sys-Virt-v5.6.0/lib/Sys/Virt/Error.pm 2019-08-06 14:57:45.000000000
+0200
@@ -414,6 +414,10 @@
The domain checkpoint
+=item Sys::Virt::Error::FROM_TPM
+
+The TPM subsystem
+
=back
=head2 ERROR CODE CONSTANTS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-v5.5.0/lib/Sys/Virt/Secret.pm
new/Sys-Virt-v5.6.0/lib/Sys/Virt/Secret.pm
--- old/Sys-Virt-v5.5.0/lib/Sys/Virt/Secret.pm 2019-07-03 13:40:17.000000000
+0200
+++ new/Sys-Virt-v5.6.0/lib/Sys/Virt/Secret.pm 2019-08-06 14:57:45.000000000
+0200
@@ -156,6 +156,13 @@
name. The UUID for the secret will be used by the hypervisor to
fetch the secret value.
+=item Sys::Virt::Secret::USAGE_TYPE_VTPM
+
+The constant for secrets which are to be used for encrypting
+virtual TPM state. The usage ID for the secret will refer to
+the TPM path. The UUID for the secret will be used by the
+hypervisor to fetch the secret value.
+
=back
=head2 LIST FILTERING
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-v5.5.0/lib/Sys/Virt/StoragePool.pm
new/Sys-Virt-v5.6.0/lib/Sys/Virt/StoragePool.pm
--- old/Sys-Virt-v5.5.0/lib/Sys/Virt/StoragePool.pm 2019-07-03
13:40:17.000000000 +0200
+++ new/Sys-Virt-v5.6.0/lib/Sys/Virt/StoragePool.pm 2019-08-06
14:57:45.000000000 +0200
@@ -478,6 +478,10 @@
Include VStorage storage pools
+=item Sys::Virt::StoragePool::LIST_ISCSI_DIRECT
+
+Include direct iSCSI pools
+
=back
=head2 EVENT ID CONSTANTS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-v5.5.0/lib/Sys/Virt.pm
new/Sys-Virt-v5.6.0/lib/Sys/Virt.pm
--- old/Sys-Virt-v5.5.0/lib/Sys/Virt.pm 2019-07-03 13:40:17.000000000 +0200
+++ new/Sys-Virt-v5.6.0/lib/Sys/Virt.pm 2019-08-06 14:57:45.000000000 +0200
@@ -78,9 +78,10 @@
use Sys::Virt::NWFilter;
use Sys::Virt::NWFilterBinding;
use Sys::Virt::DomainSnapshot;
+use Sys::Virt::DomainCheckpoint;
use Sys::Virt::Stream;
-our $VERSION = '5.5.0';
+our $VERSION = '5.6.0';
require XSLoader;
XSLoader::load('Sys::Virt', $VERSION);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-v5.5.0/lib/Sys/Virt.xs
new/Sys-Virt-v5.6.0/lib/Sys/Virt.xs
--- old/Sys-Virt-v5.5.0/lib/Sys/Virt.xs 2019-07-03 13:40:17.000000000 +0200
+++ new/Sys-Virt-v5.6.0/lib/Sys/Virt.xs 2019-08-06 14:57:45.000000000 +0200
@@ -6357,6 +6357,27 @@
free(domsss);
+void
+list_all_checkpoints(dom, flags=0)
+ virDomainPtr dom;
+ unsigned int flags;
+ PREINIT:
+ virDomainCheckpointPtr *domcps;
+ int i, ndomcp;
+ SV *domcprv;
+ PPCODE:
+ if ((ndomcp = virDomainListAllCheckpoints(dom, &domcps, flags)) < 0)
+ _croak_error();
+
+ EXTEND(SP, ndomcp);
+ for (i = 0 ; i < ndomcp ; i++) {
+ domcprv = sv_newmortal();
+ sv_setref_pv(domcprv, "Sys::Virt::DomainCheckpoint", domcps[i]);
+ PUSHs(domcprv);
+ }
+ free(domcps);
+
+
int
has_current_snapshot(dom, flags=0)
virDomainPtr dom;
@@ -8375,6 +8396,112 @@
}
+MODULE = Sys::Virt::DomainCheckpoint PACKAGE = Sys::Virt::DomainCheckpoint
+
+
+virDomainCheckpointPtr
+_create_xml(dom, xml, flags=0)
+ virDomainPtr dom;
+ const char *xml;
+ unsigned int flags;
+ CODE:
+ if (!(RETVAL = virDomainCheckpointCreateXML(dom, xml, flags)))
+ _croak_error();
+ OUTPUT:
+ RETVAL
+
+
+virDomainCheckpointPtr
+_lookup_by_name(dom, name, flags=0)
+ virDomainPtr dom;
+ const char *name;
+ unsigned int flags;
+ CODE:
+ if (!(RETVAL = virDomainCheckpointLookupByName(dom, name, flags)))
+ _croak_error();
+ OUTPUT:
+ RETVAL
+
+
+const char *
+get_name(domcp)
+ virDomainCheckpointPtr domcp;
+ CODE:
+ if (!(RETVAL = virDomainCheckpointGetName(domcp)))
+ _croak_error();
+ OUTPUT:
+ RETVAL
+
+
+SV *
+get_xml_description(domcp, flags=0)
+ virDomainCheckpointPtr domcp;
+ unsigned int flags;
+ PREINIT:
+ char *xml;
+ CODE:
+ if (!(xml = virDomainCheckpointGetXMLDesc(domcp, flags)))
+ _croak_error();
+ RETVAL = newSVpv(xml, 0);
+ free(xml);
+ OUTPUT:
+ RETVAL
+
+
+void
+delete(domcp, flags=0)
+ virDomainCheckpointPtr domcp;
+ unsigned int flags;
+ PPCODE:
+ if (virDomainCheckpointDelete(domcp, flags) < 0)
+ _croak_error();
+
+
+virDomainCheckpointPtr
+get_parent(domcp, flags=0)
+ virDomainCheckpointPtr domcp;
+ unsigned int flags;
+ CODE:
+ if (!(RETVAL = virDomainCheckpointGetParent(domcp, flags)))
+ _croak_error();
+ OUTPUT:
+ RETVAL
+
+
+void
+list_all_children(domcp, flags=0)
+ virDomainCheckpointPtr domcp;
+ unsigned int flags;
+ PREINIT:
+ virDomainCheckpointPtr *domcps;
+ int i, ndomcp;
+ SV *domcprv;
+ PPCODE:
+ if ((ndomcp = virDomainCheckpointListAllChildren(domcp, &domcps, flags))
< 0)
+ _croak_error();
+
+ EXTEND(SP, ndomcp);
+ for (i = 0 ; i < ndomcp ; i++) {
+ domcprv = sv_newmortal();
+ sv_setref_pv(domcprv, "Sys::Virt::DomainCheckpoint", domcps[i]);
+ PUSHs(domcprv);
+ }
+ free(domcps);
+
+
+void
+DESTROY(domcp_rv)
+ SV *domcp_rv;
+ PREINIT:
+ virDomainCheckpointPtr domcp;
+ PPCODE:
+ domcp = (virDomainCheckpointPtr)SvIV((SV*)SvRV(domcp_rv));
+ if (domcp) {
+ virDomainCheckpointFree(domcp);
+ sv_setiv((SV*)SvRV(domcp_rv), 0);
+ }
+
+
MODULE = Sys::Virt::Event PACKAGE = Sys::Virt::Event
@@ -8899,6 +9026,7 @@
REGISTER_CONSTANT(VIR_DOMAIN_UNDEFINE_SNAPSHOTS_METADATA,
UNDEFINE_SNAPSHOTS_METADATA);
REGISTER_CONSTANT(VIR_DOMAIN_UNDEFINE_NVRAM, UNDEFINE_NVRAM);
REGISTER_CONSTANT(VIR_DOMAIN_UNDEFINE_KEEP_NVRAM, UNDEFINE_KEEP_NVRAM);
+ REGISTER_CONSTANT(VIR_DOMAIN_UNDEFINE_CHECKPOINTS_METADATA,
UNDEFINE_CHECKPOINTS_METADATA);
REGISTER_CONSTANT(VIR_DOMAIN_START_PAUSED, START_PAUSED);
REGISTER_CONSTANT(VIR_DOMAIN_START_AUTODESTROY, START_AUTODESTROY);
@@ -9531,6 +9659,8 @@
REGISTER_CONSTANT(VIR_CONNECT_LIST_DOMAINS_RUNNING, LIST_RUNNING);
REGISTER_CONSTANT(VIR_CONNECT_LIST_DOMAINS_SHUTOFF, LIST_SHUTOFF);
REGISTER_CONSTANT(VIR_CONNECT_LIST_DOMAINS_TRANSIENT, LIST_TRANSIENT);
+ REGISTER_CONSTANT(VIR_CONNECT_LIST_DOMAINS_HAS_CHECKPOINT,
LIST_HAS_CHECKPOINT);
+ REGISTER_CONSTANT(VIR_CONNECT_LIST_DOMAINS_NO_CHECKPOINT,
LIST_NO_CHECKPOINT);
REGISTER_CONSTANT(VIR_DOMAIN_SEND_KEY_MAX_KEYS, SEND_KEY_MAX_KEYS);
@@ -9623,6 +9753,7 @@
REGISTER_CONSTANT(VIR_DOMAIN_SNAPSHOT_CREATE_QUIESCE, CREATE_QUIESCE);
REGISTER_CONSTANT(VIR_DOMAIN_SNAPSHOT_CREATE_ATOMIC, CREATE_ATOMIC);
REGISTER_CONSTANT(VIR_DOMAIN_SNAPSHOT_CREATE_LIVE, CREATE_LIVE);
+ REGISTER_CONSTANT(VIR_DOMAIN_SNAPSHOT_CREATE_VALIDATE, CREATE_VALIDATE);
REGISTER_CONSTANT(VIR_DOMAIN_SNAPSHOT_LIST_ROOTS, LIST_ROOTS);
REGISTER_CONSTANT(VIR_DOMAIN_SNAPSHOT_LIST_DESCENDANTS,
LIST_DESCENDANTS);
@@ -9644,6 +9775,24 @@
REGISTER_CONSTANT(VIR_DOMAIN_SNAPSHOT_XML_SECURE, XML_SECURE);
+ stash = gv_stashpv( "Sys::Virt::DomainCheckpoint", TRUE );
+ REGISTER_CONSTANT(VIR_DOMAIN_CHECKPOINT_DELETE_CHILDREN,
DELETE_CHILDREN);
+ REGISTER_CONSTANT(VIR_DOMAIN_CHECKPOINT_DELETE_METADATA_ONLY,
DELETE_METADATA_ONLY);
+ REGISTER_CONSTANT(VIR_DOMAIN_CHECKPOINT_DELETE_CHILDREN_ONLY,
DELETE_CHILDREN_ONLY);
+
+ REGISTER_CONSTANT(VIR_DOMAIN_CHECKPOINT_CREATE_REDEFINE,
CREATE_REDEFINE);
+ REGISTER_CONSTANT(VIR_DOMAIN_CHECKPOINT_CREATE_QUIESCE, CREATE_QUIESCE);
+
+ REGISTER_CONSTANT(VIR_DOMAIN_CHECKPOINT_LIST_ROOTS, LIST_ROOTS);
+ REGISTER_CONSTANT(VIR_DOMAIN_CHECKPOINT_LIST_DESCENDANTS,
LIST_DESCENDANTS);
+ REGISTER_CONSTANT(VIR_DOMAIN_CHECKPOINT_LIST_LEAVES, LIST_LEAVES);
+ REGISTER_CONSTANT(VIR_DOMAIN_CHECKPOINT_LIST_NO_LEAVES, LIST_NO_LEAVES);
+ REGISTER_CONSTANT(VIR_DOMAIN_CHECKPOINT_LIST_TOPOLOGICAL,
LIST_TOPOLOGICAL);
+
+ REGISTER_CONSTANT(VIR_DOMAIN_CHECKPOINT_XML_SECURE, XML_SECURE);
+ REGISTER_CONSTANT(VIR_DOMAIN_CHECKPOINT_XML_SIZE, XML_SIZE);
+ REGISTER_CONSTANT(VIR_DOMAIN_CHECKPOINT_XML_NO_DOMAIN, XML_NO_DOMAIN);
+
stash = gv_stashpv( "Sys::Virt::StoragePool", TRUE );
REGISTER_CONSTANT(VIR_STORAGE_POOL_INACTIVE, STATE_INACTIVE);
REGISTER_CONSTANT(VIR_STORAGE_POOL_BUILDING, STATE_BUILDING);
@@ -9688,6 +9837,7 @@
REGISTER_CONSTANT(VIR_CONNECT_LIST_STORAGE_POOLS_GLUSTER, LIST_GLUSTER);
REGISTER_CONSTANT(VIR_CONNECT_LIST_STORAGE_POOLS_ZFS, LIST_ZFS);
REGISTER_CONSTANT(VIR_CONNECT_LIST_STORAGE_POOLS_VSTORAGE,
LIST_VSTORAGE);
+ REGISTER_CONSTANT(VIR_CONNECT_LIST_STORAGE_POOLS_ISCSI_DIRECT,
LIST_ISCSI_DIRECT);
REGISTER_CONSTANT(VIR_STORAGE_POOL_EVENT_ID_LIFECYCLE,
EVENT_ID_LIFECYCLE);
REGISTER_CONSTANT(VIR_STORAGE_POOL_EVENT_ID_REFRESH, EVENT_ID_REFRESH);
@@ -9830,6 +9980,7 @@
REGISTER_CONSTANT(VIR_SECRET_USAGE_TYPE_CEPH, USAGE_TYPE_CEPH);
REGISTER_CONSTANT(VIR_SECRET_USAGE_TYPE_ISCSI, USAGE_TYPE_ISCSI);
REGISTER_CONSTANT(VIR_SECRET_USAGE_TYPE_TLS, USAGE_TYPE_TLS);
+ REGISTER_CONSTANT(VIR_SECRET_USAGE_TYPE_VTPM, USAGE_TYPE_VTPM);
REGISTER_CONSTANT(VIR_CONNECT_LIST_SECRETS_EPHEMERAL, LIST_EPHEMERAL);
@@ -9932,6 +10083,7 @@
REGISTER_CONSTANT(VIR_FROM_RESCTRL, FROM_RESCTRL);
REGISTER_CONSTANT(VIR_FROM_FIREWALLD, FROM_FIREWALLD);
REGISTER_CONSTANT(VIR_FROM_DOMAIN_CHECKPOINT, FROM_DOMAIN_CHECKPOINT);
+ REGISTER_CONSTANT(VIR_FROM_TPM, FROM_TPM);
REGISTER_CONSTANT(VIR_ERR_OK, ERR_OK);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Sys-Virt-v5.5.0/perl-Sys-Virt.spec
new/Sys-Virt-v5.6.0/perl-Sys-Virt.spec
--- old/Sys-Virt-v5.5.0/perl-Sys-Virt.spec 2019-07-03 13:40:17.000000000
+0200
+++ new/Sys-Virt-v5.6.0/perl-Sys-Virt.spec 2019-08-06 14:57:45.000000000
+0200
@@ -1,7 +1,7 @@
# Automatically generated by perl-Sys-Virt.spec.PL
Name: perl-Sys-Virt
-Version: 5.5.0
+Version: 5.6.0
Release: 1%{?dist}
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-v5.5.0/typemap new/Sys-Virt-v5.6.0/typemap
--- old/Sys-Virt-v5.5.0/typemap 2019-07-03 13:40:17.000000000 +0200
+++ new/Sys-Virt-v5.6.0/typemap 2019-08-06 14:57:45.000000000 +0200
@@ -13,6 +13,7 @@
virNodeDevicePtr O_OBJECT_nodedevice
virSecretPtr O_OBJECT_secret
virDomainSnapshotPtr O_OBJECT_domainsnapshot
+virDomainCheckpointPtr O_OBJECT_domaincheckpoint
virStreamPtr O_OBJECT_stream
INPUT
@@ -183,6 +184,20 @@
INPUT
+O_OBJECT_domaincheckpoint
+ if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG))
+ $var = INT2PTR($type, SvIV((SV*)SvRV( $arg )));
+ else {
+ warn( \"${Package}::$func_name() -- $var is not a blessed SV
reference\" );
+ XSRETURN_UNDEF;
+ }
+
+OUTPUT
+O_OBJECT_domaincheckpoint
+ sv_setref_pv( $arg, "Sys::Virt::DomainCheckpoint", (void*)$var );
+
+
+INPUT
O_OBJECT_stream
if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG))
$var = INT2PTR($type, SvIV((SV*)SvRV( $arg )));
++++++ suse-set-migration-constraints.patch ++++++
--- /var/tmp/diff_new_pack.n1rXoQ/_old 2019-08-19 21:28:01.524638531 +0200
+++ /var/tmp/diff_new_pack.n1rXoQ/_new 2019-08-19 21:28:01.524638531 +0200
@@ -2,10 +2,10 @@
References: fate#316614, bsc#859868
-Index: Sys-Virt-v5.5.0/lib/Sys/Virt/Domain.pm
+Index: Sys-Virt-v5.6.0/lib/Sys/Virt/Domain.pm
===================================================================
---- Sys-Virt-v5.5.0.orig/lib/Sys/Virt/Domain.pm
-+++ Sys-Virt-v5.5.0/lib/Sys/Virt/Domain.pm
+--- Sys-Virt-v5.6.0.orig/lib/Sys/Virt/Domain.pm
++++ Sys-Virt-v5.6.0/lib/Sys/Virt/Domain.pm
@@ -1141,6 +1141,22 @@ progress is not made
The number of connections used during parallel migration.
@@ -29,10 +29,10 @@
=back
=item $ddom = $dom->migrate(destcon, flags=0, dname=undef, uri=undef,
bandwidth=0)
-Index: Sys-Virt-v5.5.0/lib/Sys/Virt.xs
+Index: Sys-Virt-v5.6.0/lib/Sys/Virt.xs
===================================================================
---- Sys-Virt-v5.5.0.orig/lib/Sys/Virt.xs
-+++ Sys-Virt-v5.5.0/lib/Sys/Virt.xs
+--- Sys-Virt-v5.6.0.orig/lib/Sys/Virt.xs
++++ Sys-Virt-v5.6.0/lib/Sys/Virt.xs
@@ -5337,7 +5337,7 @@ _migrate(dom, destcon, newparams, flags=
virTypedParameterPtr params;
int nparams;
@@ -102,7 +102,7 @@
nparams = vir_typed_param_from_hv(newparams, params, nparams);
vir_typed_param_add_string_list_from_hv(newparams, ¶ms, &nparams,
-@@ -9026,6 +9058,10 @@ BOOT:
+@@ -9154,6 +9186,10 @@ BOOT:
REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_PARALLEL_CONNECTIONS,
MIGRATE_PARAM_PARALLEL_CONNECTIONS);
REGISTER_CONSTANT(VIR_DOMAIN_MIGRATE_MAX_SPEED_POSTCOPY,
MIGRATE_MAX_SPEED_POSTCOPY);
