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 <[email protected]> + +- 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 C<Sys::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 +C<Sys::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 C<Sys::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 C<Sys::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<get_parameters>. + +=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 <[email protected]> + +=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 + +L<Sys::Virt>, L<Sys::Virt::Network>, L<Sys::Virt::Error>, C<http://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);
