Hello community,
here is the log from the commit of package perl-Sys-Virt for openSUSE:Factory checked in at 2019-08-01 15:48:52
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Sys-Virt (Old)
and /work/SRC/openSUSE:Factory/.perl-Sys-Virt.new.4126 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Sys-Virt"
Thu Aug 1 15:48:52 2019 rev:70 rq:718357 version:5.5.0
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Sys-Virt/perl-Sys-Virt.changes 2019-04-17 10:07:32.998723307 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Sys-Virt.new.4126/perl-Sys-Virt.changes 2019-08-01 15:48:53.449736997 +0200
@@ -1,0 +2,6 @@
+Wed Jul 24 20:43:26 UTC 2019 - James Fehlig
+
+- Update to 5.5.0
+ - Add all new APIs and constants in libvirt 5.5.0
+
+-------------------------------------------------------------------
Old:
----
Sys-Virt-v5.2.0.tar.gz
New:
----
Sys-Virt-v5.5.0.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Sys-Virt.spec ++++++
--- /var/tmp/diff_new_pack.fGbL1X/_old 2019-08-01 15:48:53.885736938 +0200
+++ /var/tmp/diff_new_pack.fGbL1X/_new 2019-08-01 15:48:53.885736938 +0200
@@ -17,7 +17,7 @@
Name: perl-Sys-Virt
-Version: 5.2.0
+Version: 5.5.0
Release: 0
%define cpan_name Sys-Virt
Summary: Represent and manage a libvirt hypervisor connection
++++++ Sys-Virt-v5.2.0.tar.gz -> Sys-Virt-v5.5.0.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v5.2.0/Build.PL new/Sys-Virt-v5.5.0/Build.PL
--- old/Sys-Virt-v5.2.0/Build.PL 2019-04-03 18:44:19.000000000 +0200
+++ new/Sys-Virt-v5.5.0/Build.PL 2019-07-03 13:40:17.000000000 +0200
@@ -17,7 +17,7 @@
use strict;
use warnings;
-my $libvirtver = "5.2.0";
+my $libvirtver = "5.5.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.2.0/Changes new/Sys-Virt-v5.5.0/Changes
--- old/Sys-Virt-v5.2.0/Changes 2019-04-03 18:44:19.000000000 +0200
+++ new/Sys-Virt-v5.5.0/Changes 2019-07-03 13:40:17.000000000 +0200
@@ -1,5 +1,14 @@
Revision history for perl module Sys::Virt
+5.5.0 2019-07-03
+
+ - Add support for virNetworkPortPtr object and its APIs
+
+5.4.0 2019-06-12
+
+ - Add VIR_DOMAIN_MEMORY_STAT_HUGETLB_PGALLOC and
+ VIR_DOMAIN_MEMORY_STAT_HUGETLB_PGFAIL constants
+
5.2.0 2019-04-03
- Add VIR_DOMAIN_SNAPSHOT_LIST_TOPOLOGICAL constant
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v5.2.0/MANIFEST new/Sys-Virt-v5.5.0/MANIFEST
--- old/Sys-Virt-v5.2.0/MANIFEST 2019-04-03 18:44:19.000000000 +0200
+++ new/Sys-Virt-v5.5.0/MANIFEST 2019-07-03 13:40:17.000000000 +0200
@@ -41,6 +41,7 @@
lib/Sys/Virt/Event.pm
lib/Sys/Virt/Interface.pm
lib/Sys/Virt/Network.pm
+lib/Sys/Virt/NetworkPort.pm
lib/Sys/Virt/NodeDevice.pm
lib/Sys/Virt/NWFilter.pm
lib/Sys/Virt/NWFilterBinding.pm
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v5.2.0/META.json new/Sys-Virt-v5.5.0/META.json
--- old/Sys-Virt-v5.2.0/META.json 2019-04-03 18:44:19.000000000 +0200
+++ new/Sys-Virt-v5.5.0/META.json 2019-07-03 13:40:17.000000000 +0200
@@ -41,7 +41,7 @@
"provides" : {
"Sys::Virt" : {
"file" : "lib/Sys/Virt.pm",
- "version" : "v5.2.0"
+ "version" : "v5.5.0"
},
"Sys::Virt::Domain" : {
"file" : "lib/Sys/Virt/Domain.pm"
@@ -67,6 +67,9 @@
"Sys::Virt::Network" : {
"file" : "lib/Sys/Virt/Network.pm"
},
+ "Sys::Virt::NetworkPort" : {
+ "file" : "lib/Sys/Virt/NetworkPort.pm"
+ },
"Sys::Virt::NodeDevice" : {
"file" : "lib/Sys/Virt/NodeDevice.pm"
},
@@ -94,6 +97,6 @@
},
"x_MailingList" : "http://www.redhat.com/mailman/listinfo/libvir-list"
},
- "version" : "v5.2.0",
- "x_serialization_backend" : "JSON::PP version 2.97001"
+ "version" : "v5.5.0",
+ "x_serialization_backend" : "JSON::PP version 4.02"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v5.2.0/META.yml new/Sys-Virt-v5.5.0/META.yml
--- old/Sys-Virt-v5.2.0/META.yml 2019-04-03 18:44:19.000000000 +0200
+++ new/Sys-Virt-v5.5.0/META.yml 2019-07-03 13:40:17.000000000 +0200
@@ -24,7 +24,7 @@
provides:
Sys::Virt:
file: lib/Sys/Virt.pm
- version: v5.2.0
+ version: v5.5.0
Sys::Virt::Domain:
file: lib/Sys/Virt/Domain.pm
Sys::Virt::DomainSnapshot:
@@ -41,6 +41,8 @@
file: lib/Sys/Virt/NWFilterBinding.pm
Sys::Virt::Network:
file: lib/Sys/Virt/Network.pm
+ Sys::Virt::NetworkPort:
+ file: lib/Sys/Virt/NetworkPort.pm
Sys::Virt::NodeDevice:
file: lib/Sys/Virt/NodeDevice.pm
Sys::Virt::Secret:
@@ -58,5 +60,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.2.0
+version: v5.5.0
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v5.2.0/README new/Sys-Virt-v5.5.0/README
--- old/Sys-Virt-v5.2.0/README 2019-04-03 18:44:19.000000000 +0200
+++ new/Sys-Virt-v5.5.0/README 2019-07-03 13:40:17.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.2.0
+The current minimum required version of libvirt is 5.5.0
-- End
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v5.2.0/lib/Sys/Virt/Domain.pm new/Sys-Virt-v5.5.0/lib/Sys/Virt/Domain.pm
--- old/Sys-Virt-v5.2.0/lib/Sys/Virt/Domain.pm 2019-04-03 18:44:19.000000000 +0200
+++ new/Sys-Virt-v5.5.0/lib/Sys/Virt/Domain.pm 2019-07-03 13:40:17.000000000 +0200
@@ -3986,6 +3986,14 @@
Disk cache size
+=item Sys::Virt::Domain::MEMORY_STAT_HUGETLB_PGALLOC
+
+The amount of successful huge page allocations
+
+=item Sys::Virt::Domain::MEMORY_STAT_HUGETLB_PGFAIL
+
+The amount of failed huge page allocations
+
=back
=head2 DOMAIN LIST CONSTANTS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v5.2.0/lib/Sys/Virt/Error.pm new/Sys-Virt-v5.5.0/lib/Sys/Virt/Error.pm
--- old/Sys-Virt-v5.2.0/lib/Sys/Virt/Error.pm 2019-04-03 18:44:19.000000000 +0200
+++ new/Sys-Virt-v5.5.0/lib/Sys/Virt/Error.pm 2019-07-03 13:40:17.000000000 +0200
@@ -844,6 +844,18 @@
Domain backup job id not found
+=item Sys::Virt::Error::ERR_NO_NETWORK_PORT
+
+No matching network port
+
+=item Sys::Virt::Error::ERR_INVALID_NETWORK_PORT
+
+Invalid network port object
+
+=item Sys::Virt::Error::ERR_NETWORK_PORT_EXIST
+
+Network port already exists
+
=back
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v5.2.0/lib/Sys/Virt/Network.pm new/Sys-Virt-v5.5.0/lib/Sys/Virt/Network.pm
--- old/Sys-Virt-v5.2.0/lib/Sys/Virt/Network.pm 2019-04-03 18:44:19.000000000 +0200
+++ new/Sys-Virt-v5.5.0/lib/Sys/Virt/Network.pm 2019-07-03 13:40:17.000000000 +0200
@@ -193,6 +193,45 @@
=back
+=item @port = $net->list_all_ports($flags=0)
+
+List all ports associated with the network. The return array elements
+are instances of the CSys::Virt::NetworkPort class.
+
+=item $port = $net->create_port($xml, $flags=0)
+
+Create a new network port from the given C<$xml> description. The C<$flags>
+parameter can optionally taken one or more of the network port creation
+constants. The returned C<$port> object is an instance of the
+CSys::Virt::NetworkPort class.
+
+=cut
+
+sub create_port {
+ my $self = shift;
+ my $xml = shift;
+ my $flags = shift || 0;
+
+ return Sys::Virt::NetworkPort->_new(net => $self, xml => $xml, flags => $flags);
+}
+
+
+=item $port = $net->get_port_by_uuid($uuid);
+
+Lookup a network port from a raw or printable UUID.
+The returned C<$port> object is an instance of the CSys::Virt::NetworkPort
+class.
+
+=cut
+
+sub get_port_by_uuid {
+ my $self = shift;
+ my $uuid = shift;
+
+ return Sys::Virt::NetworkPort->_new(net => $self, uuid => $uuid);
+}
+
+
=back
=head1 CONSTANTS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v5.2.0/lib/Sys/Virt/NetworkPort.pm new/Sys-Virt-v5.5.0/lib/Sys/Virt/NetworkPort.pm
--- old/Sys-Virt-v5.2.0/lib/Sys/Virt/NetworkPort.pm 1970-01-01 01:00:00.000000000 +0100
+++ new/Sys-Virt-v5.5.0/lib/Sys/Virt/NetworkPort.pm 2019-07-03 13:40:17.000000000 +0200
@@ -0,0 +1,177 @@
+# -*- perl -*-
+#
+# Copyright (C) 2019 Red Hat
+#
+# 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::NetworkPort - Represent & manage a libvirt virtual network port
+
+=head1 DESCRIPTION
+
+The CSys::Virt::NetworkPort module represents a port in a virtual network.
+
+=head1 METHODS
+
+=over 4
+
+=cut
+
+package Sys::Virt::NetworkPort;
+
+use strict;
+use warnings;
+
+
+sub _new {
+ my $proto = shift;
+ my $class = ref($proto) || $proto;
+ my %params = @_;
+
+ my $net = exists $params{network} ? $params{network} : die "network parameter is required";
+ my $self;
+ if (exists $params{uuid}) {
+ if (length($params{uuid}) == 16) {
+ $self = Sys::Virt::NetworkPort::_lookup_by_uuid($net, $params{uuid});
+ } elsif (length($params{uuid}) == 32 ||
+ length($params{uuid}) == 36) {
+ $self = Sys::Virt::NetworkPort::_lookup_by_uuid_string($net, $params{uuid});
+ } else {
+ die "UUID must be either 16 unsigned bytes, or 32/36 hex characters long";
+ }
+ } elsif (exists $params{xml}) {
+ my $flags = $params{flags} || 0;
+ $self = Sys::Virt::NetworkPort::_create_xml($net, $params{xml}, $flags);
+ } else {
+ die "uuid or xml parameters are required";
+ }
+
+ bless $self, $class;
+
+ return $self;
+}
+
+
+=item my $uuid = $net->get_uuid()
+
+Returns a 16 byte long string containing the raw globally unique identifier
+(UUID) for the network port.
+
+=item my $uuid = $net->get_uuid_string()
+
+Returns a printable string representation of the raw UUID, in the format
+'XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX'.
+
+=item my $xml = $net->get_xml_description()
+
+Returns an XML document containing a complete description of
+the network port's configuration
+
+=item $net->delete()
+
+Delete the network port from the managed network.
+
+=item my $params = $net->get_parameters($flags=0);
+
+Get tunable parameters associated with the network port. The C<$flags>
+parameter is currently unused and defaults to zero. The returned
+C<$params> is a hash reference whose keys are one or more of the
+following constants:
+
+=over 4
+
+=item Sys::Virt::NetworkPort::BANDWIDTH_IN_AVERAGE
+
+The average inbound bandwidth
+
+=item Sys::Virt::NetworkPort::BANDWIDTH_IN_BURST
+
+The burstable inbound bandwidth
+
+=item Sys::Virt::NetworkPort::BANDWIDTH_IN_FLOOR
+
+The minimum inbound bandwidth
+
+=item Sys::Virt::NetworkPort::BANDWIDTH_IN_PEAK
+
+The peak inbound bandwidth
+
+=item Sys::Virt::NetworkPort::BANDWIDTH_OUT_AVERAGE
+
+The average outbound bandwidth
+
+=item Sys::Virt::NetworkPort::BANDWIDTH_OUT_BURST
+
+The burstable outbound bandwidth
+
+=item Sys::Virt::NetworkPort::BANDWIDTH_OUT_PEAK
+
+The peak outbound bandwidth
+
+=back
+
+=item $net->set_parameters($params, $flags=0);
+
+Set tunable parameters associated with the network port. The C<$flags>
+parameter is currently unused and defaults to zero. The C<$params>
+parameter is a hash reference whose keys are one or more of the
+constants listed for C.
+
+=back
+
+=head2 NETWORK PORT CREATION CONSTANTS
+
+When creating network ports zero or more of the following
+constants may be used
+
+=over 4
+
+=item Sys::Virt::NetworkPort::CREATE_RECLAIM
+
+Providing configuration reclaiming a pre-existing network port.
+
+=back
+
+
+=cut
+
+
+1;
+
+
+=head1 AUTHORS
+
+Daniel P. Berrange
+
+=head1 COPYRIGHT
+
+Copyright (C) 2019 Red Hat
+
+=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
+
+LSys::Virt, LSys::Virt::Network, LSys::Virt::Error, Chttp://libvirt.org
+
+=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v5.2.0/lib/Sys/Virt.pm new/Sys-Virt-v5.5.0/lib/Sys/Virt.pm
--- old/Sys-Virt-v5.2.0/lib/Sys/Virt.pm 2019-04-03 18:44:19.000000000 +0200
+++ new/Sys-Virt-v5.5.0/lib/Sys/Virt.pm 2019-07-03 13:40:17.000000000 +0200
@@ -69,6 +69,7 @@
use Sys::Virt::Error;
use Sys::Virt::Domain;
use Sys::Virt::Network;
+use Sys::Virt::NetworkPort;
use Sys::Virt::StoragePool;
use Sys::Virt::StorageVol;
use Sys::Virt::NodeDevice;
@@ -79,7 +80,7 @@
use Sys::Virt::DomainSnapshot;
use Sys::Virt::Stream;
-our $VERSION = '5.2.0';
+our $VERSION = '5.5.0';
require XSLoader;
XSLoader::load('Sys::Virt', $VERSION);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v5.2.0/lib/Sys/Virt.xs new/Sys-Virt-v5.5.0/lib/Sys/Virt.xs
--- old/Sys-Virt-v5.2.0/lib/Sys/Virt.xs 2019-04-03 18:44:19.000000000 +0200
+++ new/Sys-Virt-v5.5.0/lib/Sys/Virt.xs 2019-07-03 13:40:17.000000000 +0200
@@ -5904,6 +5904,14 @@
case VIR_DOMAIN_MEMORY_STAT_DISK_CACHES:
(void)hv_store (RETVAL, "disk_caches", 11, virt_newSVll(stats[i].val), 0);
break;
+
+ case VIR_DOMAIN_MEMORY_STAT_HUGETLB_PGALLOC:
+ (void)hv_store (RETVAL, "hugetlb_pgalloc", 15, virt_newSVll(stats[i].val), 0);
+ break;
+
+ case VIR_DOMAIN_MEMORY_STAT_HUGETLB_PGFAIL:
+ (void)hv_store (RETVAL, "hugetlb_pgfail", 14, virt_newSVll(stats[i].val), 0);
+ break;
}
}
Safefree(stats);
@@ -6821,6 +6829,27 @@
void
+list_all_ports(net, flags=0)
+ virNetworkPtr net;
+ unsigned int flags;
+ PREINIT:
+ virNetworkPortPtr *ports;
+ int i, nport;
+ SV *portrv;
+ PPCODE:
+ if ((nport = virNetworkListAllPorts(net, &ports, flags)) < 0)
+ _croak_error();
+
+ EXTEND(SP, nport);
+ for (i = 0 ; i < nport ; i++) {
+ portrv = sv_newmortal();
+ sv_setref_pv(portrv, "Sys::Virt::NetworkPort", ports[i]);
+ PUSHs(portrv);
+ }
+ free(ports);
+
+
+void
destroy(net_rv)
SV *net_rv;
PREINIT:
@@ -6844,6 +6873,150 @@
}
+MODULE = Sys::Virt::NetworkPort PACKAGE = Sys::Virt::NetworkPort
+
+
+virNetworkPortPtr
+_create_xml(net, xml, flags=0)
+ virNetworkPtr net;
+ const char *xml;
+ unsigned int flags;
+ CODE:
+ if (!(RETVAL = virNetworkPortCreateXML(net, xml, flags)))
+ _croak_error();
+ OUTPUT:
+ RETVAL
+
+
+virNetworkPortPtr
+_lookup_by_uuid(net, uuid)
+ virNetworkPtr net;
+ const unsigned char *uuid;
+ CODE:
+ if (!(RETVAL = virNetworkPortLookupByUUID(net, uuid)))
+ _croak_error();
+ OUTPUT:
+ RETVAL
+
+
+virNetworkPortPtr
+_lookup_by_uuid_string(net, uuid)
+ virNetworkPtr net;
+ const char *uuid;
+ CODE:
+ if (!(RETVAL = virNetworkPortLookupByUUIDString(net, uuid)))
+ _croak_error();
+
+ OUTPUT:
+ RETVAL
+
+
+SV *
+get_uuid(port)
+ virNetworkPortPtr port;
+ PREINIT:
+ unsigned char rawuuid[VIR_UUID_BUFLEN];
+ CODE:
+ if ((virNetworkPortGetUUID(port, rawuuid)) < 0)
+ _croak_error();
+
+ RETVAL = newSVpv((char*)rawuuid, sizeof(rawuuid));
+ OUTPUT:
+ RETVAL
+
+
+SV *
+get_uuid_string(port)
+ virNetworkPortPtr port;
+ PREINIT:
+ char uuid[VIR_UUID_STRING_BUFLEN];
+ CODE:
+ if ((virNetworkPortGetUUIDString(port, uuid)) < 0)
+ _croak_error();
+
+ RETVAL = newSVpv(uuid, 0);
+ OUTPUT:
+ RETVAL
+
+
+SV *
+get_xml_description(port, flags=0)
+ virNetworkPortPtr port;
+ unsigned int flags;
+ PREINIT:
+ char *xml;
+ CODE:
+ if (!(xml = virNetworkPortGetXMLDesc(port, flags)))
+ _croak_error();
+
+ RETVAL = newSVpv(xml, 0);
+ free(xml);
+ OUTPUT:
+ RETVAL
+
+
+HV *
+get_parameters(port, flags=0)
+ virNetworkPortPtr port;
+ unsigned int flags;
+ PREINIT:
+ virTypedParameterPtr params = NULL;
+ int nparams = 0;
+ CODE:
+ if (virNetworkPortGetParameters(port, ¶ms, &nparams, flags) < 0) {
+ vir_typed_param_safe_free(params, nparams);
+ _croak_error();
+ }
+
+ RETVAL = vir_typed_param_to_hv(params, nparams);
+ vir_typed_param_safe_free(params, nparams);
+ OUTPUT:
+ RETVAL
+
+
+void
+set_parameters(port, newparams, flags=0)
+ virNetworkPortPtr port;
+ HV *newparams;
+ unsigned int flags;
+ PREINIT:
+ virTypedParameterPtr params = NULL;
+ int nparams = 0;
+ PPCODE:
+ if (virNetworkPortGetParameters(port, ¶ms, &nparams, 0) < 0) {
+ vir_typed_param_safe_free(params, nparams);
+ _croak_error();
+ }
+
+ nparams = vir_typed_param_from_hv(newparams, params, nparams);
+
+ if (virNetworkPortSetParameters(port, params, nparams, flags) < 0)
+ _croak_error();
+ vir_typed_param_safe_free(params, nparams);
+
+
+void
+delete(port, flags=0)
+ virNetworkPortPtr port;
+ unsigned int flags;
+ PPCODE:
+ if (virNetworkPortDelete(port, flags) < 0)
+ _croak_error();
+
+
+void
+DESTROY(port_rv)
+ SV *port_rv;
+ PREINIT:
+ virNetworkPortPtr port;
+ PPCODE:
+ port = (virNetworkPortPtr)SvIV((SV*)SvRV(port_rv));
+ if (port) {
+ virNetworkPortFree(port);
+ sv_setiv((SV*)SvRV(port_rv), 0);
+ }
+
+
MODULE = Sys::Virt::StoragePool PACKAGE = Sys::Virt::StoragePool
@@ -9139,6 +9312,8 @@
REGISTER_CONSTANT(VIR_DOMAIN_MEMORY_STAT_LAST_UPDATE, MEMORY_STAT_LAST_UPDATE);
REGISTER_CONSTANT(VIR_DOMAIN_MEMORY_STAT_USABLE, MEMORY_STAT_USABLE);
REGISTER_CONSTANT(VIR_DOMAIN_MEMORY_STAT_DISK_CACHES, MEMORY_STAT_DISK_CACHES);
+ REGISTER_CONSTANT(VIR_DOMAIN_MEMORY_STAT_HUGETLB_PGALLOC, MEMORY_STAT_HUGETLB_PGALLOC);
+ REGISTER_CONSTANT(VIR_DOMAIN_MEMORY_STAT_HUGETLB_PGFAIL, MEMORY_STAT_HUGETLB_PGFAIL);
REGISTER_CONSTANT_STR(VIR_DOMAIN_BLOCK_IOTUNE_TOTAL_BYTES_SEC, BLOCK_IOTUNE_TOTAL_BYTES_SEC);
@@ -9567,6 +9742,17 @@
REGISTER_CONSTANT(VIR_NETWORK_EVENT_STOPPED, EVENT_STOPPED);
+ stash = gv_stashpv( "Sys::Virt::NetworkPort", TRUE );
+ REGISTER_CONSTANT(VIR_NETWORK_PORT_CREATE_RECLAIM, CREATE_RECLAIM);
+
+ REGISTER_CONSTANT_STR(VIR_NETWORK_PORT_BANDWIDTH_IN_AVERAGE, BANDWIDTH_IN_AVERAGE);
+ REGISTER_CONSTANT_STR(VIR_NETWORK_PORT_BANDWIDTH_IN_BURST, BANDWIDTH_IN_BURST);
+ REGISTER_CONSTANT_STR(VIR_NETWORK_PORT_BANDWIDTH_IN_FLOOR, BANDWIDTH_IN_FLOOR);
+ REGISTER_CONSTANT_STR(VIR_NETWORK_PORT_BANDWIDTH_IN_PEAK, BANDWIDTH_IN_PEAK);
+ REGISTER_CONSTANT_STR(VIR_NETWORK_PORT_BANDWIDTH_OUT_AVERAGE, BANDWIDTH_OUT_AVERAGE);
+ REGISTER_CONSTANT_STR(VIR_NETWORK_PORT_BANDWIDTH_OUT_BURST, BANDWIDTH_OUT_BURST);
+ REGISTER_CONSTANT_STR(VIR_NETWORK_PORT_BANDWIDTH_OUT_PEAK, BANDWIDTH_OUT_PEAK);
+
stash = gv_stashpv( "Sys::Virt::Interface", TRUE );
REGISTER_CONSTANT(VIR_INTERFACE_XML_INACTIVE, XML_INACTIVE);
@@ -9853,4 +10039,7 @@
REGISTER_CONSTANT(VIR_ERR_INVALID_DOMAIN_CHECKPOINT, ERR_INVALID_DOMAIN_CHECKPOINT);
REGISTER_CONSTANT(VIR_ERR_NO_DOMAIN_BACKUP, ERR_NO_DOMAIN_BACKUP);
REGISTER_CONSTANT(VIR_ERR_NO_DOMAIN_CHECKPOINT, ERR_NO_DOMAIN_CHECKPOINT);
+ REGISTER_CONSTANT(VIR_ERR_NO_NETWORK_PORT, ERR_NO_NETWORK_PORT);
+ REGISTER_CONSTANT(VIR_ERR_INVALID_NETWORK_PORT, ERR_INVALID_NETWORK_PORT);
+ REGISTER_CONSTANT(VIR_ERR_NETWORK_PORT_EXIST, ERR_NETWORK_PORT_EXIST);
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v5.2.0/perl-Sys-Virt.spec new/Sys-Virt-v5.5.0/perl-Sys-Virt.spec
--- old/Sys-Virt-v5.2.0/perl-Sys-Virt.spec 2019-04-03 18:44:19.000000000 +0200
+++ new/Sys-Virt-v5.5.0/perl-Sys-Virt.spec 2019-07-03 13:40:17.000000000 +0200
@@ -1,7 +1,7 @@
# Automatically generated by perl-Sys-Virt.spec.PL
Name: perl-Sys-Virt
-Version: 5.2.0
+Version: 5.5.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.2.0/t/030-api-coverage.t new/Sys-Virt-v5.5.0/t/030-api-coverage.t
--- old/Sys-Virt-v5.2.0/t/030-api-coverage.t 2019-04-03 18:44:19.000000000 +0200
+++ new/Sys-Virt-v5.5.0/t/030-api-coverage.t 2019-07-03 13:40:17.000000000 +0200
@@ -152,7 +152,7 @@
);
foreach my $func (sort { $a cmp $b } @functions) {
- if ($func =~ /(GetConnect|Ref|GetDomain)$/ ||
+ if ($func =~ /(GetConnect|Ref|GetDomain|GetNetwork)$/ ||
grep {/$func/ } @blacklist) {
ok(1, $func);
next;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v5.2.0/typemap new/Sys-Virt-v5.5.0/typemap
--- old/Sys-Virt-v5.2.0/typemap 2019-04-03 18:44:19.000000000 +0200
+++ new/Sys-Virt-v5.5.0/typemap 2019-07-03 13:40:17.000000000 +0200
@@ -4,6 +4,7 @@
virConnectPtr O_OBJECT_connect
virDomainPtr O_OBJECT_domain
virNetworkPtr O_OBJECT_network
+virNetworkPortPtr O_OBJECT_network_port
virNWFilterPtr O_OBJECT_nwfilter
virNWFilterBindingPtr O_OBJECT_nwfilter_binding
virInterfacePtr O_OBJECT_interface
@@ -55,6 +56,19 @@
O_OBJECT_network
sv_setref_pv( $arg, "Sys::Virt::Network", (void*)$var );
+INPUT
+O_OBJECT_network_port
+ 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_network_port
+ sv_setref_pv( $arg, "Sys::Virt::NetworkPort", (void*)$var );
+
INPUT
O_OBJECT_storagepool
++++++ suse-set-migration-constraints.patch ++++++
--- /var/tmp/diff_new_pack.fGbL1X/_old 2019-08-01 15:48:54.077736912 +0200
+++ /var/tmp/diff_new_pack.fGbL1X/_new 2019-08-01 15:48:54.077736912 +0200
@@ -2,10 +2,10 @@
References: fate#316614, bsc#859868
-Index: Sys-Virt-v5.2.0/lib/Sys/Virt/Domain.pm
+Index: Sys-Virt-v5.5.0/lib/Sys/Virt/Domain.pm
===================================================================
---- Sys-Virt-v5.2.0.orig/lib/Sys/Virt/Domain.pm
-+++ Sys-Virt-v5.2.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
@@ -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.2.0/lib/Sys/Virt.xs
+Index: Sys-Virt-v5.5.0/lib/Sys/Virt.xs
===================================================================
---- Sys-Virt-v5.2.0.orig/lib/Sys/Virt.xs
-+++ Sys-Virt-v5.2.0/lib/Sys/Virt.xs
+--- Sys-Virt-v5.5.0.orig/lib/Sys/Virt.xs
++++ Sys-Virt-v5.5.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,
-@@ -8853,6 +8885,10 @@ BOOT:
+@@ -9026,6 +9058,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);