rpms/perl-RPM2/devel perl-RPM2-0.67-inttypes.patch, NONE, 1.1 perl-RPM2.spec, 1.2, 1.3

[Lubomir Kundrak (lkundrak)]

Author: lkundrak

Update of /cvs/pkgs/rpms/perl-RPM2/devel
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv31993/devel

Modified Files:
	perl-RPM2.spec 
Added Files:
	perl-RPM2-0.67-inttypes.patch 
Log Message:
Return valid 16 bit file modes.


perl-RPM2-0.67-inttypes.patch:

--- NEW FILE perl-RPM2-0.67-inttypes.patch ---
Return correct values for RPM_INT{8,16} types (FILEMODES, etc.).
	-- Lubomir Kundrak <lkundrak at redhat.com>

diff -urp RPM2-0.67/RPM2.xs RPM2-0.67.inttypes/RPM2.xs
--- RPM2-0.67/RPM2.xs	2003-12-09 17:55:56.000000000 +0100
+++ RPM2-0.67.inttypes/RPM2.xs	2007-10-26 19:01:55.000000000 +0200
@@ -432,15 +432,51 @@ tag_by_id(h, tag)
 			PUSHs(sv_2mortal(newSVpv((char *)ret, 0)));
 			break;
 		case RPM_CHAR_TYPE:
+			{
+			int i;
+			char *r;
+
+			EXTEND(SP, n);
+			r = (char *)ret;
+
+			for (i = 0; i < n; i++) {
+				PUSHs(sv_2mortal(newSViv(r[i])));
+			}
+			}
+			break;
 		case RPM_INT8_TYPE:
+			{
+			int i;
+			uint8_t *r;
+
+			EXTEND(SP, n);
+			r = (uint8_t *)ret;
+
+			for (i = 0; i < n; i++) {
+				PUSHs(sv_2mortal(newSViv(r[i])));
+			}
+			}
+			break;
 		case RPM_INT16_TYPE:
+			{
+			int i;
+			uint16_t *r;
+
+			EXTEND(SP, n);
+			r = (uint16_t *)ret;
+
+			for (i = 0; i < n; i++) {
+				PUSHs(sv_2mortal(newSViv(r[i])));
+			}
+			}
+			break;
 		case RPM_INT32_TYPE:
 			{
 			int i;
-			int *r;
+			uint32_t *r;
 
 			EXTEND(SP, n);
-			r = (int *)ret;
+			r = (uint32_t *)ret;
 
 			for (i = 0; i < n; i++) {
 				PUSHs(sv_2mortal(newSViv(r[i])));


Index: perl-RPM2.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl-RPM2/devel/perl-RPM2.spec,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- perl-RPM2.spec	7 May 2007 19:19:50 -0000	1.2
+++ perl-RPM2.spec	27 Oct 2007 13:38:05 -0000	1.3
@@ -1,14 +1,15 @@
 Name:		perl-RPM2
 Version:	0.67
-Release:	2%{?dist}
+Release:	3%{?dist}
 Summary:	Perl bindings for the RPM Package Manager API
-License:	GPL or Artistic
+License:	GPL+ or Artistic
 Group:		Development/Libraries
 URL:		http://search.cpan.org/dist/RPM2/
 Source0:	http://search.cpan.org/CPAN/authors/id/C/CH/CHIPT/RPM2-%{version}.tar.gz
 Patch0:		perl-RPM2-elf.patch
 Patch1:		perl-RPM2-0.66-remove-rpmdb-redhat-dependency.patch
 Patch2:		perl-RPM2-0.66-skip-root-tests.patch
+Patch3:		perl-RPM2-0.67-inttypes.patch
 BuildRoot:	%{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 BuildRequires:	rpm-devel elfutils-libelf-devel bzip2-devel perl(ExtUtils::MakeMaker)
 Requires:	perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
@@ -23,6 +24,7 @@
 %patch0 -p1 -b .elf
 %patch1 -p1 -b .remove-rpmdb-redhat-dependency
 %patch2 -p1 -b .skip-root-tests
+%patch3 -p1 -b .inttypes
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
@@ -50,6 +52,10 @@
 %{_mandir}/man3/RPM2.3pm*
 
 %changelog
+* Fri Oct 26 2007 Lubomir Kundrak <lkundrak at redhat.com> - 0.67-3
+- Fix reading of non-32bit int tag values
+- Correct the License tag
+
 * Mon May  7 2007 Robin Norwood <rnorwood at redhat.com> - 0.67-2
 - Add BuildRequires perl(ExtUtils::MakeMaker)