Hello community, here is the log from the commit of package perl-Sys-Virt for openSUSE:Factory checked in at 2014-01-14 15:08:32 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Sys-Virt (Old) and /work/SRC/openSUSE:Factory/.perl-Sys-Virt.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Sys-Virt" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Sys-Virt/perl-Sys-Virt.changes 2013-10-11 11:04:52.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Sys-Virt.new/perl-Sys-Virt.changes 2014-01-14 15:08:33.000000000 +0100 @@ -1,0 +2,18 @@ +Sat Dec 14 19:02:46 CET 2013 - oher...@suse.de + +- Use correct free() in get_cpu_model_names + Sys-Virt-1.2.0.patch + +------------------------------------------------------------------- +Fri Dec 6 16:02:05 MST 2013 - jfeh...@suse.com + +- Update to 1.2.0 + - Add all new APIs and constants in libvirt 1.2.0 + +------------------------------------------------------------------- +Wed Nov 20 13:20:48 MST 2013 - jfeh...@suse.com + +- Update to 1.1.4 + - Add all new APIs and constants in libvirt 1.1.4 + +------------------------------------------------------------------- Old: ---- Sys-Virt-1.1.2.tar.gz New: ---- Sys-Virt-1.2.0.patch Sys-Virt-1.2.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Sys-Virt.spec ++++++ --- /var/tmp/diff_new_pack.AdWAmP/_old 2014-01-14 15:08:34.000000000 +0100 +++ /var/tmp/diff_new_pack.AdWAmP/_new 2014-01-14 15:08:34.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Sys-Virt # -# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,7 +17,7 @@ Name: perl-Sys-Virt -Version: 1.1.2 +Version: 1.2.0 Release: 0 %define cpan_name Sys-Virt Summary: Represent and manage a libvirt hypervisor connection @@ -25,8 +25,9 @@ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Sys-Virt/ Source: %{cpan_name}-%{version}.tar.gz +Patch1: Sys-Virt-1.2.0.patch BuildRequires: libvirt-devel >= %{version} -%if %suse_version < 1140 +%if 0%{?suse_version} < 1140 BuildRequires: perl-macros %endif BuildRequires: perl(ExtUtils::MakeMaker) @@ -45,6 +46,7 @@ %prep %setup -q -n %{cpan_name}-%{version} +%patch1 -p1 sed -i -e '/Sys-Virt\.spec/d' Makefile.PL sed -i -e '/\.spec\.PL$/d' MANIFEST ++++++ Sys-Virt-1.2.0.patch ++++++ [ 97s] t/100-connect..........panic: free from wrong pool at t/100-connect.t line 81. [ 97s] # Looks like you planned 25 tests but only ran 24. [ 97s] # Looks like your test died just after 24. [ 97s] dubious [ 97s] Test returned status 255 (wstat 65280, 0xff00) [ 97s] DIED. FAILED test 25 [ 97s] Failed 1/25 tests, 96.00% okay (less 1 skipped test: 23 okay, 92.00%) --- Virt.xs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) Index: Sys-Virt-1.2.0/Virt.xs =================================================================== --- Sys-Virt-1.2.0.orig/Virt.xs +++ Sys-Virt-1.2.0/Virt.xs @@ -1925,7 +1925,7 @@ PREINIT: PUSHs(sv_2mortal(newSVpv(names[i], 0))); free(names[i]); } - Safefree(names); + free(names); ++++++ Sys-Virt-1.1.2.tar.gz -> Sys-Virt-1.2.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.2/AUTHORS new/Sys-Virt-1.2.0/AUTHORS --- old/Sys-Virt-1.1.2/AUTHORS 2013-09-27 18:30:07.000000000 +0200 +++ new/Sys-Virt-1.2.0/AUTHORS 2013-12-02 18:46:33.000000000 +0100 @@ -12,5 +12,6 @@ Stepan Kasal <skasal-at-redhat-dot-com> Ludwig Nussel <ludwig-dot-nussel-at-suse-dot-de> Zhe Peng <zpeng-at-redhat-dot-com> + Osier Yang <jyang-at-redhat-dot-com> -- End diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.2/Changes new/Sys-Virt-1.2.0/Changes --- old/Sys-Virt-1.1.2/Changes 2013-09-27 18:30:07.000000000 +0200 +++ new/Sys-Virt-1.2.0/Changes 2013-12-02 18:46:33.000000000 +0100 @@ -1,5 +1,19 @@ Revision history for perl module Sys::Virt +1.2.0 2013-12-02 + + - Add all new constants in libvirt 1.2.0 + - Fix reversed args for virNodeDeviceLookupSCSIHostByWWN + +1.1.4 2013-11-05 + + - Add all new constants in libvirt 1.1.4 + - Fix impl of "list_secrets" API (RT #82072) + +1.1.3 2013-10-02 + + - Add all new APIs in libvirt 1.1.3 + 1.1.2 2013-09-27 - Add all new constants in libvirt 1.1.2 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.2/MANIFEST new/Sys-Virt-1.2.0/MANIFEST --- old/Sys-Virt-1.1.2/MANIFEST 2013-09-27 18:30:18.000000000 +0200 +++ new/Sys-Virt-1.2.0/MANIFEST 2013-12-02 18:46:44.000000000 +0100 @@ -9,6 +9,7 @@ examples/hv-stat.pl examples/node-cpu.pl examples/node-devlist.pl +examples/node-info.pl examples/node-ksm.pl examples/open-console.pl examples/save-restore.pl diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.2/META.yml new/Sys-Virt-1.2.0/META.yml --- old/Sys-Virt-1.1.2/META.yml 2013-09-27 18:30:18.000000000 +0200 +++ new/Sys-Virt-1.2.0/META.yml 2013-12-02 18:46:44.000000000 +0100 @@ -1,7 +1,7 @@ --- #YAML:1.0 name: Sys-Virt abstract: Extension for the libvirt library -version: 1.1.2 +version: 1.2.0 author: - Daniel P. Berrange <d...@berrange.com> license: perl diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.2/MYMETA.json new/Sys-Virt-1.2.0/MYMETA.json --- old/Sys-Virt-1.1.2/MYMETA.json 2013-09-27 18:30:11.000000000 +0200 +++ new/Sys-Virt-1.2.0/MYMETA.json 2013-12-02 18:46:37.000000000 +0100 @@ -42,5 +42,5 @@ } }, "release_status" : "stable", - "version" : "v1.1.2" + "version" : "v1.2.0" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.2/MYMETA.yml new/Sys-Virt-1.2.0/MYMETA.yml --- old/Sys-Virt-1.1.2/MYMETA.yml 2013-09-27 18:30:11.000000000 +0200 +++ new/Sys-Virt-1.2.0/MYMETA.yml 2013-12-02 18:46:37.000000000 +0100 @@ -24,4 +24,4 @@ Test::Pod::Coverage: 0 Time::HiRes: 0 XML::XPath: 0 -version: v1.1.2 +version: v1.2.0 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.2/Makefile.PL new/Sys-Virt-1.2.0/Makefile.PL --- old/Sys-Virt-1.1.2/Makefile.PL 2013-09-27 18:30:07.000000000 +0200 +++ new/Sys-Virt-1.2.0/Makefile.PL 2013-12-02 18:46:33.000000000 +0100 @@ -3,7 +3,7 @@ # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. -my $libvirtver = "1.1.2"; +my $libvirtver = "1.2.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-1.1.2/README new/Sys-Virt-1.2.0/README --- old/Sys-Virt-1.1.2/README 2013-09-27 18:30:07.000000000 +0200 +++ new/Sys-Virt-1.2.0/README 2013-12-02 18:46:33.000000000 +0100 @@ -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 1.1.2 +The current minimum required version of libvirt is 1.2.0 -- End diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.2/Virt.xs new/Sys-Virt-1.2.0/Virt.xs --- old/Sys-Virt-1.1.2/Virt.xs 2013-09-27 18:30:07.000000000 +0200 +++ new/Sys-Virt-1.2.0/Virt.xs 2013-12-02 18:46:33.000000000 +0100 @@ -1907,6 +1907,27 @@ OUTPUT: RETVAL +void +get_cpu_model_names(con, arch, flags=0) + virConnectPtr con; + char *arch; + unsigned int flags; +PREINIT: + int nnames; + int i; + char **names = NULL; + PPCODE: + if ((nnames = virConnectGetCPUModelNames(con, arch, &names, flags)) < 0) + _croak_error(); + + EXTEND(SP, nnames); + for (i = 0 ; i < nnames ; i++) { + PUSHs(sv_2mortal(newSVpv(names[i], 0))); + free(names[i]); + } + Safefree(names); + + int get_max_vcpus(con, type) @@ -3765,7 +3786,7 @@ virTypedParameter *params; int nparams; CODE: - nparams = 5; + nparams = 6; Newx(params, nparams, virTypedParameter); memcpy(params[0].field, VIR_MIGRATE_PARAM_URI, @@ -3788,6 +3809,10 @@ VIR_TYPED_PARAM_FIELD_LENGTH); params[4].type = VIR_TYPED_PARAM_ULLONG; + memcpy(params[5].field, VIR_MIGRATE_PARAM_LISTEN_ADDRESS, + VIR_TYPED_PARAM_FIELD_LENGTH); + params[5].type = VIR_TYPED_PARAM_STRING; + nparams = vir_typed_param_from_hv(newparams, params, nparams); @@ -3837,6 +3862,10 @@ VIR_TYPED_PARAM_FIELD_LENGTH); params[4].type = VIR_TYPED_PARAM_ULLONG; + memcpy(params[5].field, VIR_MIGRATE_PARAM_LISTEN_ADDRESS, + VIR_TYPED_PARAM_FIELD_LENGTH); + params[5].type = VIR_TYPED_PARAM_STRING; + nparams = vir_typed_param_from_hv(newparams, params, nparams); /* No need to support virDomainMigrateToURI/virDomainMigrateToURI2, since @@ -6604,6 +6633,7 @@ REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_DEST_XML, MIGRATE_PARAM_DEST_XML); REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_GRAPHICS_URI, MIGRATE_PARAM_GRAPHICS_URI); REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_URI, MIGRATE_PARAM_URI); + REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_LISTEN_ADDRESS, MIGRATE_PARAM_LISTEN_ADDRESS); REGISTER_CONSTANT(VIR_DOMAIN_XML_SECURE, XML_SECURE); REGISTER_CONSTANT(VIR_DOMAIN_XML_INACTIVE, XML_INACTIVE); @@ -7105,6 +7135,7 @@ REGISTER_CONSTANT(VIR_STORAGE_VOL_BLOCK, TYPE_BLOCK); REGISTER_CONSTANT(VIR_STORAGE_VOL_DIR, TYPE_DIR); REGISTER_CONSTANT(VIR_STORAGE_VOL_NETWORK, TYPE_NETWORK); + REGISTER_CONSTANT(VIR_STORAGE_VOL_NETDIR, TYPE_NETDIR); REGISTER_CONSTANT(VIR_STORAGE_VOL_DELETE_NORMAL, DELETE_NORMAL); REGISTER_CONSTANT(VIR_STORAGE_VOL_DELETE_ZEROED, DELETE_ZEROED); @@ -7305,4 +7336,5 @@ REGISTER_CONSTANT(VIR_ERR_RESOURCE_BUSY, ERR_RESOURCE_BUSY); REGISTER_CONSTANT(VIR_ERR_ACCESS_DENIED, ERR_ACCESS_DENIED); REGISTER_CONSTANT(VIR_ERR_DBUS_SERVICE, ERR_DBUS_SERVICE); + REGISTER_CONSTANT(VIR_ERR_STORAGE_VOL_EXIST, ERR_STORAGE_VOL_EXIST); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.2/examples/node-info.pl new/Sys-Virt-1.2.0/examples/node-info.pl --- old/Sys-Virt-1.1.2/examples/node-info.pl 1970-01-01 01:00:00.000000000 +0100 +++ new/Sys-Virt-1.2.0/examples/node-info.pl 2013-12-02 18:46:33.000000000 +0100 @@ -0,0 +1,16 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +use Sys::Virt; + +my $addr = @ARGV ? shift @ARGV : ""; + +my $hv = Sys::Virt->new(address => $addr, readonly => 1); + +my $info = $hv->get_node_info(); + +my @models = $hv->get_cpu_model_names($info->{model}); + +print join ("\n", sort{ lc $a cmp lc $b } @models), "\n"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.2/lib/Sys/Virt/Domain.pm new/Sys-Virt-1.2.0/lib/Sys/Virt/Domain.pm --- old/Sys-Virt-1.1.2/lib/Sys/Virt/Domain.pm 2013-09-27 18:30:07.000000000 +0200 +++ new/Sys-Virt-1.2.0/lib/Sys/Virt/Domain.pm 2013-12-02 18:46:33.000000000 +0100 @@ -898,6 +898,14 @@ hypervisors do not support this feature and will return an error if this field is used and is not 0. +=item C<Sys::Virt::Domain::MIGRATE_PARAM_LISTEN_ADDRESS> + +The address on which to listen for incoming migration connections. +If omitted, libvirt will listen on the wildcard address (0.0.0.0 +or ::). This default may be a security risk if guests, or other +untrusted users have the ability to connect to the virtualization +host, thus use of an explicit restricted listen address is recommended. + =back =item $ddom = $dom->migrate(destcon, flags=0, dname=undef, uri=undef, bandwidth=0) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.2/lib/Sys/Virt/Error.pm new/Sys-Virt-1.2.0/lib/Sys/Virt/Error.pm --- old/Sys-Virt-1.1.2/lib/Sys/Virt/Error.pm 2013-09-27 18:30:07.000000000 +0200 +++ new/Sys-Virt-1.2.0/lib/Sys/Virt/Error.pm 2013-12-02 18:46:33.000000000 +0100 @@ -732,6 +732,10 @@ An error from a DBus service API +=item Sys::Virt::Error::ERR_STORAGE_VOL_EXIST + +The storage volume already exists + =back =head1 AUTHORS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.2/lib/Sys/Virt/NodeDevice.pm new/Sys-Virt-1.2.0/lib/Sys/Virt/NodeDevice.pm --- old/Sys-Virt-1.1.2/lib/Sys/Virt/NodeDevice.pm 2013-09-27 18:30:07.000000000 +0200 +++ new/Sys-Virt-1.2.0/lib/Sys/Virt/NodeDevice.pm 2013-12-02 18:46:33.000000000 +0100 @@ -51,10 +51,11 @@ my $self; if (exists $params{name}) { $self = Sys::Virt::NodeDevice::_lookup_by_name($con, $params{name}); - } elsif (exists $params{wwpn}) { + } elsif (exists $params{wwnn}) { $self = Sys::Virt::NodeDevice::_lookup_scsihost_by_wwn($con, + $params{wwnn}, $params{wwpn}, - $params{wwnn}); + $params{flags}); } elsif (exists $params{xml}) { $self = Sys::Virt::NodeDevice::_create_xml($con, $params{xml}); } else { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.2/lib/Sys/Virt/StorageVol.pm new/Sys-Virt-1.2.0/lib/Sys/Virt/StorageVol.pm --- old/Sys-Virt-1.1.2/lib/Sys/Virt/StorageVol.pm 2013-09-27 18:30:07.000000000 +0200 +++ new/Sys-Virt-1.2.0/lib/Sys/Virt/StorageVol.pm 2013-12-02 18:46:33.000000000 +0100 @@ -171,6 +171,10 @@ The volume is a network source +=item Sys::Virt::StorageVol::TYPE_NETDIR + +The volume is a network directory + =back =head2 CREATE MODES diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.2/lib/Sys/Virt.pm new/Sys-Virt-1.2.0/lib/Sys/Virt.pm --- old/Sys-Virt-1.1.2/lib/Sys/Virt.pm 2013-09-27 18:30:07.000000000 +0200 +++ new/Sys-Virt-1.2.0/lib/Sys/Virt.pm 2013-12-02 18:46:33.000000000 +0100 @@ -78,7 +78,7 @@ use Sys::Virt::DomainSnapshot; use Sys::Virt::Stream; -our $VERSION = '1.1.2'; +our $VERSION = '1.2.0'; require XSLoader; XSLoader::load('Sys::Virt', $VERSION); @@ -790,7 +790,7 @@ my $self = shift; my $nuuids = $self->num_of_secrets(); - my @uuids = $self->list_secrets($nuuids); + my @uuids = $self->list_secret_uuids($nuuids); my @secrets; foreach my $uuid (@uuids) { @@ -1559,6 +1559,14 @@ =back +=item @names = $con->get_cpu_model_names($arch, $flags=0) + +Get a list of valid CPU models names for the architecture +given by C<$arch>. The C<$arch> value should be one of the +architectures listed in the capabilities XML document. +The C<$flags> parameter is currently unused and defaults +to 0. + =item my $info = $con->get_node_security_model() Returns a hash reference summarising the security model of the diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.2/perl-Sys-Virt.spec new/Sys-Virt-1.2.0/perl-Sys-Virt.spec --- old/Sys-Virt-1.1.2/perl-Sys-Virt.spec 2013-09-27 18:30:18.000000000 +0200 +++ new/Sys-Virt-1.2.0/perl-Sys-Virt.spec 2013-12-02 18:46:44.000000000 +0100 @@ -1,7 +1,7 @@ # Automatically generated by perl-Sys-Virt.spec.PL Name: perl-Sys-Virt -Version: 1.1.2 +Version: 1.2.0 Release: 1%{?dist}%{?extra_release} 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-1.1.2/t/030-api-coverage.t new/Sys-Virt-1.2.0/t/030-api-coverage.t --- old/Sys-Virt-1.1.2/t/030-api-coverage.t 2013-09-27 18:30:07.000000000 +0200 +++ new/Sys-Virt-1.2.0/t/030-api-coverage.t 2013-12-02 18:46:33.000000000 +0100 @@ -179,6 +179,7 @@ _virBlkioParameter _virMemoryParameter _virSchedParameter +LIBVIR_CHECK_VERSION ); foreach my $macro (sort { $a cmp $b } @macros) { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sys-Virt-1.1.2/t/100-connect.t new/Sys-Virt-1.2.0/t/100-connect.t --- old/Sys-Virt-1.1.2/t/100-connect.t 2013-09-27 18:30:07.000000000 +0200 +++ new/Sys-Virt-1.2.0/t/100-connect.t 2013-12-02 18:46:33.000000000 +0100 @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 24; +use Test::More tests => 25; use XML::XPath; use XML::XPath::XMLParser; use Sys::Hostname; @@ -77,3 +77,7 @@ ok($conn->is_secure(), "connection is secure"); ok(!$conn->is_encrypted(), "connection is not encrypted"); + +my @models = $conn->get_cpu_model_names($info->{model}); + +ok($#models > -1, "got some cpu models"); -- To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org For additional commands, e-mail: opensuse-commit+h...@opensuse.org