Author: kasal
Update of /cvs/extras/rpms/perl-Sys-Virt/devel
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv19727
Modified Files:
perl-Sys-Virt.spec
Added Files:
perl-Sys-Virt-free.patch
Removed Files:
perl-Sys-Virt-0.1.2-free.patch
Log Message:
- new upstream version (#237421)
perl-Sys-Virt-free.patch:
--- NEW FILE perl-Sys-Virt-free.patch ---
2009-03-30 Stepan Kasal <skasal@xxxxxxxxxx>
* Virt.xs: call Safefree before bailing out.
Adapted from a similar patch to Sys-Virt-0.1.2.
diff -urpN Sys-Virt-0.2.0.orig/Virt.xs Sys-Virt-0.2.0/Virt.xs
--- Sys-Virt-0.2.0.orig/Virt.xs 2009-03-27 20:45:33.000000000 +0100
+++ Sys-Virt-0.2.0/Virt.xs 2009-03-30 16:51:16.000000000 +0200
@@ -670,6 +670,7 @@ list_domain_ids(con, maxids)
PPCODE:
Newx(ids, maxids, int);
if ((nid = virConnectListDomains(con, ids, maxids)) < 0) {
+ Safefree(ids);
_croak_error(virConnGetLastError(con));
}
EXTEND(SP, nid);
@@ -700,7 +701,7 @@ list_defined_domain_names(con, maxnames)
PPCODE:
Newx(names, maxnames, char *);
if ((ndom = virConnectListDefinedDomains(con, names, maxnames)) < 0) {
- free(names);
+ Safefree(names);
_croak_error(virConnGetLastError(con));
}
EXTEND(SP, ndom);
@@ -731,6 +732,7 @@ list_network_names(con, maxnames)
PPCODE:
Newx(names, maxnames, char *);
if ((nnet = virConnectListNetworks(con, names, maxnames)) < 0) {
+ Safefree(names);
_croak_error(virConnGetLastError(con));
}
EXTEND(SP, nnet);
@@ -762,7 +764,7 @@ list_defined_network_names(con, maxnames
PPCODE:
Newx(names, maxnames, char *);
if ((ndom = virConnectListDefinedNetworks(con, names, maxnames)) < 0) {
- free(names);
+ Safefree(names);
_croak_error(virConnGetLastError(con));
}
EXTEND(SP, ndom);
@@ -793,6 +795,7 @@ list_storage_pool_names(con, maxnames)
PPCODE:
Newx(names, maxnames, char *);
if ((nnet = virConnectListStoragePools(con, names, maxnames)) < 0) {
+ Safefree(names);
_croak_error(virConnGetLastError(con));
}
EXTEND(SP, nnet);
@@ -824,7 +827,7 @@ list_defined_storage_pool_names(con, max
PPCODE:
Newx(names, maxnames, char *);
if ((ndom = virConnectListDefinedStoragePools(con, names, maxnames)) < 0) {
- free(names);
+ Safefree(names);
_croak_error(virConnGetLastError(con));
}
EXTEND(SP, ndom);
@@ -859,6 +862,7 @@ list_node_device_names(con, cap, maxname
PPCODE:
Newx(names, maxnames, char *);
if ((nnet = virNodeListDevices(con, cap, names, maxnames, flags)) < 0) {
+ Safefree(names);
_croak_error(virConnGetLastError(con));
}
EXTEND(SP, nnet);
Index: perl-Sys-Virt.spec
===================================================================
RCS file: /cvs/extras/rpms/perl-Sys-Virt/devel/perl-Sys-Virt.spec,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- perl-Sys-Virt.spec 27 Feb 2009 01:54:51 -0000 1.14
+++ perl-Sys-Virt.spec 30 Mar 2009 15:16:46 -0000 1.15
@@ -1,12 +1,12 @@
Name: perl-Sys-Virt
-Version: 0.1.2
-Release: 4%{?dist}
+Version: 0.2.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-%{version}.tar.gz
-Patch1: %{name}-%{version}-free.patch
+Patch1: %{name}-free.patch
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildRequires: perl(ExtUtils::MakeMaker)
BuildRequires: perl(Test::Pod)
@@ -61,6 +61,9 @@
%{_mandir}/man3/*
%changelog
+* Mon Mar 30 2009 Stepan Kasal <skasal@xxxxxxxxxx> - 0.2.0-1
+- new upstream version (#237421)
+
* Thu Feb 26 2009 Fedora Release Engineering <rel-eng@xxxxxxxxxxxxxxxxxxxxxxx> - 0.1.2-4
- Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild
--- perl-Sys-Virt-0.1.2-free.patch DELETED ---
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
Fedora-perl-devel-list mailing list
Fedora-perl-devel-list@xxxxxxxxxx
https://www.redhat.com/mailman/listinfo/fedora-perl-devel-list
