Hello community, here is the log from the commit of package perl-Sys-Virt for openSUSE:Factory checked in at 2018-07-28 12:45:37 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Sys-Virt (Old) and /work/SRC/openSUSE:Factory/.perl-Sys-Virt.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Sys-Virt" Sat Jul 28 12:45:37 2018 rev:62 rq:625843 version:4.5.0 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Sys-Virt/perl-Sys-Virt.changes 2018-07-06 10:43:28.695148870 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Sys-Virt.new/perl-Sys-Virt.changes 2018-07-28 12:45:39.321017543 +0200 @@ -1,0 +2,6 @@ +Fri Jul 27 20:10:18 UTC 2018 - [email protected] + +- Update to 4.5.0 + - Add all new APIs and constants in libvirt 4.5.0 + +------------------------------------------------------------------- Old: ---- Sys-Virt-v4.4.0.tar.gz New: ---- Sys-Virt-v4.5.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Sys-Virt.spec ++++++ --- /var/tmp/diff_new_pack.QccAbW/_old 2018-07-28 12:45:39.969018722 +0200 +++ /var/tmp/diff_new_pack.QccAbW/_new 2018-07-28 12:45:39.973018729 +0200 @@ -17,11 +17,11 @@ Name: perl-Sys-Virt -Version: 4.4.0 +Version: 4.5.0 Release: 0 %define cpan_name Sys-Virt Summary: Represent and manage a libvirt hypervisor connection -License: GPL-2.0+ or ClArtistic +License: GPL-2.0-or-later OR ClArtistic Group: Development/Libraries/Perl Url: https://metacpan.org/release/Sys-Virt Source: %{cpan_name}-v%{version}.tar.gz ++++++ Sys-Virt-v4.4.0.tar.gz -> Sys-Virt-v4.5.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v4.4.0/Build.PL new/Sys-Virt-v4.5.0/Build.PL --- old/Sys-Virt-v4.4.0/Build.PL 2018-06-05 16:08:05.000000000 +0200 +++ new/Sys-Virt-v4.5.0/Build.PL 2018-07-03 17:06:38.000000000 +0200 @@ -17,7 +17,7 @@ use strict; use warnings; -my $libvirtver = "4.4.0"; +my $libvirtver = "4.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-v4.4.0/Changes new/Sys-Virt-v4.5.0/Changes --- old/Sys-Virt-v4.4.0/Changes 2018-06-05 16:08:05.000000000 +0200 +++ new/Sys-Virt-v4.5.0/Changes 2018-07-03 17:06:38.000000000 +0200 @@ -1,5 +1,11 @@ Revision history for perl module Sys::Virt +4.5.0 2018-07-03 + + - Add new types and APIs for virNWFilterBinding + - Add VIR_CONNECT_GET_ALL_DOMAINS_STATS_NOWAIT + - Add new constants and APIs for AMD SEV + 4.4.0 2018-06-05 - Switch to Module::Build diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v4.4.0/META.json new/Sys-Virt-v4.5.0/META.json --- old/Sys-Virt-v4.4.0/META.json 2018-06-05 16:08:05.000000000 +0200 +++ new/Sys-Virt-v4.5.0/META.json 2018-07-03 17:06:38.000000000 +0200 @@ -41,7 +41,7 @@ "provides" : { "Sys::Virt" : { "file" : "lib/Sys/Virt.pm", - "version" : "v4.4.0" + "version" : "v4.5.0" }, "Sys::Virt::Domain" : { "file" : "lib/Sys/Virt/Domain.pm" @@ -91,6 +91,6 @@ }, "x_MailingList" : "http://www.redhat.com/mailman/listinfo/libvir-list"; }, - "version" : "v4.4.0", + "version" : "v4.5.0", "x_serialization_backend" : "JSON::PP version 2.97001" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v4.4.0/META.yml new/Sys-Virt-v4.5.0/META.yml --- old/Sys-Virt-v4.4.0/META.yml 2018-06-05 16:08:05.000000000 +0200 +++ new/Sys-Virt-v4.5.0/META.yml 2018-07-03 17:06:38.000000000 +0200 @@ -24,7 +24,7 @@ provides: Sys::Virt: file: lib/Sys/Virt.pm - version: v4.4.0 + version: v4.5.0 Sys::Virt::Domain: file: lib/Sys/Virt/Domain.pm Sys::Virt::DomainSnapshot: @@ -56,5 +56,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: v4.4.0 +version: v4.5.0 x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v4.4.0/README new/Sys-Virt-v4.5.0/README --- old/Sys-Virt-v4.4.0/README 2018-06-05 16:08:05.000000000 +0200 +++ new/Sys-Virt-v4.5.0/README 2018-07-03 17:06:38.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 4.4.0 +The current minimum required version of libvirt is 4.5.0 -- End diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v4.4.0/lib/Sys/Virt/Domain.pm new/Sys-Virt-v4.5.0/lib/Sys/Virt/Domain.pm --- old/Sys-Virt-v4.4.0/lib/Sys/Virt/Domain.pm 2018-06-05 16:08:05.000000000 +0200 +++ new/Sys-Virt-v4.5.0/lib/Sys/Virt/Domain.pm 2018-07-03 17:06:38.000000000 +0200 @@ -2014,6 +2014,20 @@ Changes the actions of lifecycle events for domain represented as <on_$type>$action</on_$type> in the domain XML. +=item $info = $dom->get_launch_security_info($flags=0) + +Get information about the domaim launch security policy. C<$flags> +is currently unused and defaults to zero. The returned hash may +contain the following keys + +=over 4 + +=item Sys::Virt::Domain::LAUNCH_SECURITY_SEV_MEASUREMENT + +The AMD SEV launch measurement + +=back + =back =head1 CONSTANTS @@ -4112,6 +4126,10 @@ Get stats for image backing files too +=item Sys::Virt::Domain::GET_ALL_STATS_NOWAIT + +Skip stats if they can't be acquired without waiting + =back =head2 DOMAIN STATS FIELD CONSTANTS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v4.4.0/lib/Sys/Virt/Error.pm new/Sys-Virt-v4.5.0/lib/Sys/Virt/Error.pm --- old/Sys-Virt-v4.4.0/lib/Sys/Virt/Error.pm 2018-06-05 16:08:05.000000000 +0200 +++ new/Sys-Virt-v4.5.0/lib/Sys/Virt/Error.pm 2018-07-03 17:06:38.000000000 +0200 @@ -816,6 +816,14 @@ Libvirt fail to find the desired device. +=item Sys::Virt::Error::ERR_INVALID_NWFILTER_BINDING + +Invalid nwfilter binding + +=item Sys::Virt::Error::ERR_NO_NWFILTER_BINDING + +No nwfilter binding + =back =head1 AUTHORS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v4.4.0/lib/Sys/Virt.pm new/Sys-Virt-v4.5.0/lib/Sys/Virt.pm --- old/Sys-Virt-v4.4.0/lib/Sys/Virt.pm 2018-06-05 16:08:05.000000000 +0200 +++ new/Sys-Virt-v4.5.0/lib/Sys/Virt.pm 2018-07-03 17:06:38.000000000 +0200 @@ -78,7 +78,7 @@ use Sys::Virt::DomainSnapshot; use Sys::Virt::Stream; -our $VERSION = '4.4.0'; +our $VERSION = '4.5.0'; require XSLoader; XSLoader::load('Sys::Virt', $VERSION); @@ -397,6 +397,24 @@ return Sys::Virt::Interface->_new(connection => $self, xml => $xml); } + +=item my $binding = $conn->create_nwfilter_binding($xml); + +Create a new network filter binding based on the XML description passed into the C<$xml> +parameter. The returned object is an instance of the L<Sys::Virt::NWFilterBinding> +class. + +=cut + +sub create_nwfilter_binding { + my $self = shift; + my $xml = shift; + + return Sys::Virt::NWFilterBinding->_new(connection => $self, xml => $xml); +} + + + =item my $iface = $conn->define_interface($xml); Defines, but does not start, a new interface based on the XML description @@ -897,6 +915,12 @@ in the returned list are instances of the L<Sys::Virt::NWFilter> class. The C<$flags> parameter is currently unused and defaults to zero. +=item my @bindings = $conn->list_all_nwfilter_bindings($flags) + +Return a list of all nwfilter bindings currently known to the hypervisor. The +elements in the returned list are instances of the L<Sys::Virt::NWFilterBinding> +class. The C<$flags> parameter is currently unused and defaults to zero. + =item $conn->define_save_image_xml($file, $dxml, $flags=0) Update the XML associated with a virtual machine's save image. The C<$file> @@ -1200,6 +1224,21 @@ return Sys::Virt::NWFilter->_new(connection => $self, uuid => $uuid); } +=item my $binding = $conn->get_nwfilter_binding_by_port_dev($name) + +Return the network filter binding for the port device C<$name>. The returned object is +an instance of the L<Sys::Virt::NWFilterBinding> class. + +=cut + +sub get_nwfilter_binding_by_port_dev { + my $self = shift; + my $name = shift; + + return Sys::Virt::NWFilterBinding->_new(connection => $self, portdev => $name); +} + + =item my $xml = $conn->find_storage_pool_sources($type, $srcspec[, $flags]) Probe for available storage pool sources for the pool of type C<$type>. @@ -1508,6 +1547,32 @@ parameter is currently unused, and defaults to 0 if omitted. +=item $info = $conn->get_node_sev_info($flags=0) + +Get the AMD SEV information for the host. C<$flags> is +currently unused and defaults to 0 if omitted. The returned +hash contains the following keys: + +=over 4 + +=item Sys::Virt::SEV_CBITPOS + +The CBit position + +=item Sys::Virt::SEV_CERT_CHAIN + +The certificate chain + +=item Sys::Virt::SEV_PDH + +Platform diffie-hellman key + +=item Sys::Virt::SEV_REDUCED_PHYS_BITS + +The number of physical address bits used by SEV + +=back + =item $conn->node_suspend_for_duration($target, $duration, $flags=0) Suspend the the host, using mode C<$target> which is one of the NODE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v4.4.0/lib/Sys/Virt.xs new/Sys-Virt-v4.5.0/lib/Sys/Virt.xs --- old/Sys-Virt-v4.4.0/lib/Sys/Virt.xs 2018-06-05 16:08:05.000000000 +0200 +++ new/Sys-Virt-v4.5.0/lib/Sys/Virt.xs 2018-07-03 17:06:38.000000000 +0200 @@ -2398,6 +2398,23 @@ OUTPUT: RETVAL +HV * +get_node_sev_info(conn, flags=0) + virConnectPtr conn; + unsigned int flags; + PREINIT: + virTypedParameterPtr params; + int nparams; + CODE: + if (virNodeGetSEVInfo(conn, ¶ms, &nparams, flags) < 0) { + _croak_error(); + } + + RETVAL = vir_typed_param_to_hv(params, nparams); + free(params); + OUTPUT: + RETVAL + void get_node_cpu_map(con, flags=0) virConnectPtr con; @@ -3047,6 +3064,27 @@ void +list_all_nwfilter_bindings(con, flags=0) + virConnectPtr con; + unsigned int flags; + PREINIT: + virNWFilterBindingPtr *bindings; + int i, nbinding; + SV *bindingrv; + PPCODE: + if ((nbinding = virConnectListAllNWFilterBindings(con, &bindings, flags)) < 0) + _croak_error(); + + EXTEND(SP, nbinding); + for (i = 0 ; i < nbinding ; i++) { + bindingrv = sv_newmortal(); + sv_setref_pv(bindingrv, "Sys::Virt::NWFilterBinding", bindings[i]); + PUSHs(bindingrv); + } + free(bindings); + + +void list_all_networks(con, flags=0) virConnectPtr con; unsigned int flags; @@ -4943,6 +4981,23 @@ Safefree(params); +HV * +get_launch_security_info(dom, flags=0) + virDomainPtr dom; + unsigned int flags; + PREINIT: + virTypedParameterPtr params; + int nparams; + CODE: + if (virDomainGetLaunchSecurityInfo(dom, ¶ms, &nparams, flags) < 0) { + _croak_error(); + } + RETVAL = vir_typed_param_to_hv(params, nparams); + free(params); + OUTPUT: + RETVAL + + unsigned long get_max_memory(dom) virDomainPtr dom; @@ -7804,6 +7859,88 @@ } +MODULE = Sys::Virt::NWFilterBinding PACKAGE = Sys::Virt::NWFilterBinding + + +virNWFilterBindingPtr +_create_xml(con, xml, flags=0) + virConnectPtr con; + const char *xml; + unsigned int flags; + CODE: + if (!(RETVAL = virNWFilterBindingCreateXML(con, xml, flags))) + _croak_error(); + OUTPUT: + RETVAL + + +virNWFilterBindingPtr +_lookup_by_port_dev(con, name) + virConnectPtr con; + const char *name; + CODE: + if (!(RETVAL = virNWFilterBindingLookupByPortDev(con, name))) + _croak_error(); + OUTPUT: + RETVAL + + +const char * +get_port_dev(binding) + virNWFilterBindingPtr binding; + CODE: + if (!(RETVAL = virNWFilterBindingGetPortDev(binding))) + _croak_error(); + OUTPUT: + RETVAL + + +const char * +get_filter_name(binding) + virNWFilterBindingPtr binding; + CODE: + if (!(RETVAL = virNWFilterBindingGetFilterName(binding))) + _croak_error(); + OUTPUT: + RETVAL + + +SV * +get_xml_description(binding, flags=0) + virNWFilterBindingPtr binding; + unsigned int flags; + PREINIT: + char *xml; + CODE: + if (!(xml = virNWFilterBindingGetXMLDesc(binding, flags))) + _croak_error(); + + RETVAL = newSVpv(xml, 0); + free(xml); + OUTPUT: + RETVAL + + +void +delete(binding) + virNWFilterBindingPtr binding; + PPCODE: + if (virNWFilterBindingDelete(binding) < 0) + _croak_error(); + +void +DESTROY(binding_rv) + SV *binding_rv; + PREINIT: + virNWFilterBindingPtr binding; + PPCODE: + binding = (virNWFilterBindingPtr)SvIV((SV*)SvRV(binding_rv)); + if (binding) { + virNWFilterBindingFree(binding); + sv_setiv((SV*)SvRV(binding_rv), 0); + } + + MODULE = Sys::Virt::DomainSnapshot PACKAGE = Sys::Virt::DomainSnapshot @@ -8461,6 +8598,12 @@ REGISTER_CONSTANT(VIR_NODE_ALLOC_PAGES_ADD, NODE_ALLOC_PAGES_ADD); REGISTER_CONSTANT(VIR_NODE_ALLOC_PAGES_SET, NODE_ALLOC_PAGES_SET); + + REGISTER_CONSTANT_STR(VIR_NODE_SEV_CBITPOS, SEV_CBITPOS); + REGISTER_CONSTANT_STR(VIR_NODE_SEV_CERT_CHAIN, SEV_CERT_CHAIN); + REGISTER_CONSTANT_STR(VIR_NODE_SEV_PDH, SEV_PDH); + REGISTER_CONSTANT_STR(VIR_NODE_SEV_REDUCED_PHYS_BITS, SEV_REDUCED_PHYS_BITS); + stash = gv_stashpv( "Sys::Virt::Event", TRUE ); REGISTER_CONSTANT(VIR_EVENT_HANDLE_READABLE, HANDLE_READABLE); @@ -8658,6 +8801,7 @@ REGISTER_CONSTANT(VIR_CONNECT_GET_ALL_DOMAINS_STATS_RUNNING, GET_ALL_STATS_RUNNING); REGISTER_CONSTANT(VIR_CONNECT_GET_ALL_DOMAINS_STATS_SHUTOFF, GET_ALL_STATS_SHUTOFF); REGISTER_CONSTANT(VIR_CONNECT_GET_ALL_DOMAINS_STATS_TRANSIENT, GET_ALL_STATS_TRANSIENT); + REGISTER_CONSTANT(VIR_CONNECT_GET_ALL_DOMAINS_STATS_NOWAIT, GET_ALL_STATS_NOWAIT); REGISTER_CONSTANT(VIR_CONNECT_GET_ALL_DOMAINS_STATS_ENFORCE_STATS, GET_ALL_STATS_ENFORCE_STATS); REGISTER_CONSTANT(VIR_CONNECT_GET_ALL_DOMAINS_STATS_BACKING, GET_ALL_STATS_BACKING); @@ -9182,6 +9326,9 @@ REGISTER_CONSTANT(VIR_DOMAIN_LIFECYCLE_ACTION_COREDUMP_DESTROY, LIFECYCLE_ACTION_COREDUMP_DESTROY); REGISTER_CONSTANT(VIR_DOMAIN_LIFECYCLE_ACTION_COREDUMP_RESTART, LIFECYCLE_ACTION_COREDUMP_RESTART); + + REGISTER_CONSTANT_STR(VIR_DOMAIN_LAUNCH_SECURITY_SEV_MEASUREMENT, LAUNCH_SECURITY_SEV_MEASUREMENT); + stash = gv_stashpv( "Sys::Virt::DomainSnapshot", TRUE ); REGISTER_CONSTANT(VIR_DOMAIN_SNAPSHOT_DELETE_CHILDREN, DELETE_CHILDREN); REGISTER_CONSTANT(VIR_DOMAIN_SNAPSHOT_DELETE_METADATA_ONLY, DELETE_METADATA_ONLY); @@ -9591,4 +9738,6 @@ REGISTER_CONSTANT(VIR_ERR_AGENT_UNSYNCED, ERR_AGENT_UNSYNCED); REGISTER_CONSTANT(VIR_ERR_LIBSSH, ERR_LIBSSH); REGISTER_CONSTANT(VIR_ERR_DEVICE_MISSING, ERR_DEVICE_MISSING); + REGISTER_CONSTANT(VIR_ERR_INVALID_NWFILTER_BINDING, ERR_INVALID_NWFILTER_BINDING); + REGISTER_CONSTANT(VIR_ERR_NO_NWFILTER_BINDING, ERR_NO_NWFILTER_BINDING); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v4.4.0/perl-Sys-Virt.spec new/Sys-Virt-v4.5.0/perl-Sys-Virt.spec --- old/Sys-Virt-v4.4.0/perl-Sys-Virt.spec 2018-06-05 16:08:05.000000000 +0200 +++ new/Sys-Virt-v4.5.0/perl-Sys-Virt.spec 2018-07-03 17:06:38.000000000 +0200 @@ -1,23 +1,44 @@ # Automatically generated by perl-Sys-Virt.spec.PL Name: perl-Sys-Virt -Version: 4.4.0 +Version: 4.5.0 Release: 1%{?dist} Summary: Represent and manage a libvirt hypervisor connection License: GPLv2+ or Artistic -Group: Development/Libraries -URL: http://search.cpan.org/dist/Sys-Virt/ -Source0: http://www.cpan.org/authors/id/D/DA/DANBERR/Sys-Virt-v%{version}.tar.gz +URL: https://metacpan.org/release/Sys-Virt +Source0: https://cpan.metacpan.org/authors/id/D/DA/DANBERR/Sys-Virt-v%{version}.tar.gz BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) +# Build +BuildRequires: coreutils +BuildRequires: findutils +BuildRequires: gcc +BuildRequires: libvirt-devel >= %{version} +BuildRequires: make +BuildRequires: perl-devel +%if 0%{?fedora} || 0%{?rhel} > 7 +BuildRequires: perl-interpreter +BuildRequires: perl-generators +%endif BuildRequires: perl(ExtUtils::CBuilder) BuildRequires: perl(Module::Build) -BuildRequires: perl(Test::Pod) -BuildRequires: perl(Test::Pod::Coverage) -BuildRequires: perl(Test::CPAN::Changes) -BuildRequires: perl(XML::XPath) +BuildRequires: sed +# Runtime +BuildRequires: perl(overload) +BuildRequires: perl(strict) +BuildRequires: perl(warnings) +BuildRequires: perl(XSLoader) +# Tests only +BuildRequires: perl(base) +BuildRequires: perl(Sys::Hostname) +BuildRequires: perl(Test::More) BuildRequires: perl(Time::HiRes) -BuildRequires: libvirt-devel >= %{version} -Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) +BuildRequires: perl(XML::XPath) +BuildRequires: perl(XML::XPath::XMLParser) +# Optional tests only +BuildRequires: perl(Test::CPAN::Changes) +BuildRequires: perl(Test::Pod) >= 1.00 +BuildRequires: perl(Test::Pod::Coverage) >= 1.00 +Requires: perl(:MODULE_COMPAT_%(eval "$(perl -V:version)"; echo $version)) %description The Sys::Virt module provides a Perl XS binding to the libvirt virtual @@ -35,18 +56,14 @@ %install ./Build install destdir=$RPM_BUILD_ROOT create_packlist=0 -#find $RPM_BUILD_ROOT -type f \( -name .packlist -o -name '*.bs' -empty \) | -# xargs rm -f -#find $RPM_BUILD_ROOT -depth -type d -empty -exec rmdir {} \; - %{_fixperms} $RPM_BUILD_ROOT/* %check ./Build test %files -%defattr(-,root,root,-) -%doc AUTHORS Changes LICENSE README examples/ +%license LICENSE +%doc AUTHORS Changes README examples/ %{perl_vendorarch}/auto/* %{perl_vendorarch}/Sys* %{_mandir}/man3/* diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v4.4.0/perl-Sys-Virt.spec.PL new/Sys-Virt-v4.5.0/perl-Sys-Virt.spec.PL --- old/Sys-Virt-v4.4.0/perl-Sys-Virt.spec.PL 2018-06-05 16:08:05.000000000 +0200 +++ new/Sys-Virt-v4.5.0/perl-Sys-Virt.spec.PL 2018-07-03 17:06:38.000000000 +0200 @@ -31,19 +31,40 @@ Release: 1%{?dist} Summary: Represent and manage a libvirt hypervisor connection License: GPLv2+ or Artistic -Group: Development/Libraries -URL: http://search.cpan.org/dist/Sys-Virt/ -Source0: http://www.cpan.org/authors/id/D/DA/DANBERR/Sys-Virt-v%{version}.tar.gz +URL: https://metacpan.org/release/Sys-Virt +Source0: https://cpan.metacpan.org/authors/id/D/DA/DANBERR/Sys-Virt-v%{version}.tar.gz BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) +# Build +BuildRequires: coreutils +BuildRequires: findutils +BuildRequires: gcc +BuildRequires: libvirt-devel >= %{version} +BuildRequires: make +BuildRequires: perl-devel +%if 0%{?fedora} || 0%{?rhel} > 7 +BuildRequires: perl-interpreter +BuildRequires: perl-generators +%endif BuildRequires: perl(ExtUtils::CBuilder) BuildRequires: perl(Module::Build) -BuildRequires: perl(Test::Pod) -BuildRequires: perl(Test::Pod::Coverage) -BuildRequires: perl(Test::CPAN::Changes) -BuildRequires: perl(XML::XPath) +BuildRequires: sed +# Runtime +BuildRequires: perl(overload) +BuildRequires: perl(strict) +BuildRequires: perl(warnings) +BuildRequires: perl(XSLoader) +# Tests only +BuildRequires: perl(base) +BuildRequires: perl(Sys::Hostname) +BuildRequires: perl(Test::More) BuildRequires: perl(Time::HiRes) -BuildRequires: libvirt-devel >= %{version} -Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) +BuildRequires: perl(XML::XPath) +BuildRequires: perl(XML::XPath::XMLParser) +# Optional tests only +BuildRequires: perl(Test::CPAN::Changes) +BuildRequires: perl(Test::Pod) >= 1.00 +BuildRequires: perl(Test::Pod::Coverage) >= 1.00 +Requires: perl(:MODULE_COMPAT_%(eval "$(perl -V:version)"; echo $version)) %description The Sys::Virt module provides a Perl XS binding to the libvirt virtual @@ -61,18 +82,14 @@ %install ./Build install destdir=$RPM_BUILD_ROOT create_packlist=0 -#find $RPM_BUILD_ROOT -type f \( -name .packlist -o -name '*.bs' -empty \) | -# xargs rm -f -#find $RPM_BUILD_ROOT -depth -type d -empty -exec rmdir {} \; - %{_fixperms} $RPM_BUILD_ROOT/* %check ./Build test %files -%defattr(-,root,root,-) -%doc AUTHORS Changes LICENSE README examples/ +%license LICENSE +%doc AUTHORS Changes README examples/ %{perl_vendorarch}/auto/* %{perl_vendorarch}/Sys* %{_mandir}/man3/* diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v4.4.0/t/030-api-coverage.t new/Sys-Virt-v4.5.0/t/030-api-coverage.t --- old/Sys-Virt-v4.4.0/t/030-api-coverage.t 2018-06-05 16:08:05.000000000 +0200 +++ new/Sys-Virt-v4.5.0/t/030-api-coverage.t 2018-07-03 17:06:38.000000000 +0200 @@ -69,6 +69,8 @@ virResetLastError virSaveLastError virGetLastErrorMessage +virGetLastErrorCode +virGetLastErrorDomain virConnectAuthCallbackPtr virConnectOpen diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-v4.4.0/typemap new/Sys-Virt-v4.5.0/typemap --- old/Sys-Virt-v4.4.0/typemap 2018-06-05 16:08:05.000000000 +0200 +++ new/Sys-Virt-v4.5.0/typemap 2018-07-03 17:06:38.000000000 +0200 @@ -5,6 +5,7 @@ virDomainPtr O_OBJECT_domain virNetworkPtr O_OBJECT_network virNWFilterPtr O_OBJECT_nwfilter +virNWFilterBindingPtr O_OBJECT_nwfilter_binding virInterfacePtr O_OBJECT_interface virStoragePoolPtr O_OBJECT_storagepool virStorageVolPtr O_OBJECT_storagevol @@ -140,6 +141,20 @@ INPUT +O_OBJECT_nwfilter_binding + 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_nwfilter_binding + sv_setref_pv( $arg, "Sys::Virt::NWFilterBinding", (void*)$var ); + + +INPUT O_OBJECT_domainsnapshot 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.QccAbW/_old 2018-07-28 12:45:40.045018859 +0200 +++ /var/tmp/diff_new_pack.QccAbW/_new 2018-07-28 12:45:40.045018859 +0200 @@ -2,10 +2,10 @@ References: fate#316614, bsc#859868 -Index: Sys-Virt-v4.4.0/lib/Sys/Virt/Domain.pm +Index: Sys-Virt-v4.5.0/lib/Sys/Virt/Domain.pm =================================================================== ---- Sys-Virt-v4.4.0.orig/lib/Sys/Virt/Domain.pm -+++ Sys-Virt-v4.4.0/lib/Sys/Virt/Domain.pm +--- Sys-Virt-v4.5.0.orig/lib/Sys/Virt/Domain.pm ++++ Sys-Virt-v4.5.0/lib/Sys/Virt/Domain.pm @@ -1117,6 +1117,22 @@ The initial percentage to throttle guest The additional percentage step size to throttle guest vCPUs if progress is not made @@ -29,11 +29,11 @@ =back =item $ddom = $dom->migrate(destcon, flags=0, dname=undef, uri=undef, bandwidth=0) -Index: Sys-Virt-v4.4.0/lib/Sys/Virt.xs +Index: Sys-Virt-v4.5.0/lib/Sys/Virt.xs =================================================================== ---- Sys-Virt-v4.4.0.orig/lib/Sys/Virt.xs -+++ Sys-Virt-v4.4.0/lib/Sys/Virt.xs -@@ -5246,7 +5246,7 @@ _migrate(dom, destcon, newparams, flags= +--- Sys-Virt-v4.5.0.orig/lib/Sys/Virt.xs ++++ Sys-Virt-v4.5.0/lib/Sys/Virt.xs +@@ -5301,7 +5301,7 @@ _migrate(dom, destcon, newparams, flags= virTypedParameterPtr params; int nparams; CODE: @@ -42,7 +42,7 @@ Newx(params, nparams, virTypedParameter); strncpy(params[0].field, VIR_MIGRATE_PARAM_URI, -@@ -5309,6 +5309,22 @@ _migrate(dom, destcon, newparams, flags= +@@ -5364,6 +5364,22 @@ _migrate(dom, destcon, newparams, flags= VIR_TYPED_PARAM_FIELD_LENGTH); params[14].type = VIR_TYPED_PARAM_INT; @@ -65,7 +65,7 @@ nparams = vir_typed_param_from_hv(newparams, params, nparams); vir_typed_param_add_string_list_from_hv(newparams, ¶ms, &nparams, -@@ -5337,7 +5353,7 @@ _migrate_to_uri(dom, desturi, newparams, +@@ -5392,7 +5408,7 @@ _migrate_to_uri(dom, desturi, newparams, virTypedParameterPtr params; int nparams; PPCODE: @@ -74,7 +74,7 @@ Newx(params, nparams, virTypedParameter); strncpy(params[0].field, VIR_MIGRATE_PARAM_URI, -@@ -5400,6 +5416,22 @@ _migrate_to_uri(dom, desturi, newparams, +@@ -5455,6 +5471,22 @@ _migrate_to_uri(dom, desturi, newparams, VIR_TYPED_PARAM_FIELD_LENGTH); params[14].type = VIR_TYPED_PARAM_INT; @@ -97,7 +97,7 @@ nparams = vir_typed_param_from_hv(newparams, params, nparams); vir_typed_param_add_string_list_from_hv(newparams, ¶ms, &nparams, -@@ -8614,6 +8646,10 @@ BOOT: +@@ -8757,6 +8789,10 @@ BOOT: REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_PERSIST_XML, MIGRATE_PARAM_PERSIST_XML); REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_AUTO_CONVERGE_INITIAL, MIGRATE_PARAM_AUTO_CONVERGE_INITIAL); REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_AUTO_CONVERGE_INCREMENT, MIGRATE_PARAM_AUTO_CONVERGE_INCREMENT);
