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 - ohering@suse.de
+
+- Use correct free() in get_cpu_model_names
+ Sys-Virt-1.2.0.patch
+
+-------------------------------------------------------------------
+Fri Dec 6 16:02:05 MST 2013 - jfehlig@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 - jfehlig@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
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 CSys::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+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org