[rpms/perl-Sys-Virt] epel10.2: Fix use of free() in XS binding

[Daniel P. Berrange <berrange@fedoraproject.org>]

A new commit has been pushed.

Repo   : rpms/perl-Sys-Virt
Branch : epel10.2
Commit : 94bec200e617e6afe7d92fd339dcfd1afaed192e
Author : Daniel P. Berrange <berrange@fedoraproject.org>
Date   : 2008-03-07T22:47:03+00:00
Stats  : +78/-1 in 2 file(s)
URL    : https://src.fedoraproject.org/rpms/perl-Sys-Virt/c/94bec200e617e6afe7d92fd339dcfd1afaed192e?branch=epel10.2

Log:
Fix use of free() in XS binding

---
diff --git a/perl-Sys-Virt-0.1.2-free.patch b/perl-Sys-Virt-0.1.2-free.patch
new file mode 100644
index 0000000..2885f94
--- /dev/null
+++ b/perl-Sys-Virt-0.1.2-free.patch
@@ -0,0 +1,72 @@
+diff -rup Sys-Virt-0.1.2.orig/Virt.xs Sys-Virt-0.1.2.new/Virt.xs
+--- Sys-Virt-0.1.2.orig/Virt.xs	2008-02-23 14:15:14.000000000 -0500
++++ Sys-Virt-0.1.2.new/Virt.xs	2008-03-07 17:36:28.000000000 -0500
+@@ -197,13 +197,14 @@ 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);
+       for (i = 0 ; i < nid ; i++) {
+ 	PUSHs(sv_2mortal(newSViv(ids[i])));
+       }
+-      free(ids);
++      Safefree(ids);
+ 
+ 
+ int
+@@ -227,7 +228,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);
+@@ -235,7 +236,7 @@ list_defined_domain_names(con, maxnames)
+ 	PUSHs(sv_2mortal(newSVpv(names[i], 0)));
+         free(names[i]);
+       }
+-      free(names);
++      Safefree(names);
+ 
+ 
+ int
+@@ -258,6 +259,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);
+@@ -265,7 +267,7 @@ list_network_names(con, maxnames)
+ 	PUSHs(sv_2mortal(newSVpv(names[i], 0)));
+ 	free(names[i]);
+       }
+-      free(names);
++      Safefree(names);
+ 
+ 
+ int
+@@ -289,7 +291,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);
+@@ -297,7 +299,7 @@ list_defined_network_names(con, maxnames
+ 	PUSHs(sv_2mortal(newSVpv(names[i], 0)));
+         free(names[i]);
+       }
+-      free(names);
++      Safefree(names);
+ 
+ 
+ void

diff --git a/perl-Sys-Virt.spec b/perl-Sys-Virt.spec
index 1818bb1..054c187 100644
--- a/perl-Sys-Virt.spec
+++ b/perl-Sys-Virt.spec
@@ -1,11 +1,12 @@
 Name:           perl-Sys-Virt
 Version:        0.1.2
-Release:        2%{?dist}
+Release:        3%{?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
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 BuildRequires:  perl(ExtUtils::MakeMaker)
 BuildRequires:  perl(Test::Pod)
@@ -21,6 +22,7 @@ virtualization containers to be managed with a consistent API.
 
 %prep
 %setup -q -n Sys-Virt-%{version}
+%patch1 -p1
 
 sed -i -e '/Sys-Virt\.spec/d' Makefile.PL
 sed -i -e '/\.spec\.PL$/d' MANIFEST
@@ -59,6 +61,9 @@ rm -rf $RPM_BUILD_ROOT
 %{_mandir}/man3/*
 
 %changelog
+* Fri Mar 07 2008 Daniel P. Berrange <berrange@redhat.com> - 0.1.2-3
+- Fix calls to free() in XS binding
+
 * Thu Mar 06 2008 Tom "spot" Callaway <tcallawa@redhat.com> - 0.1.2-2
 Rebuild for new perl