rpms/perl-IPC-ShareLite/devel IPC-ShareLite-0.09-64bit.patch, NONE, 1.1 IPC-ShareLite-0.09-string.patch, NONE, 1.1 perl-IPC-ShareLite.spec, 1.13, 1.14

Author: spot Update of /cvs/pkgs/rpms/perl-IPC-ShareLite/devel In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv16414 Modified Files: perl-IPC-ShareLite.spec Added Files: IPC-ShareLite-0.09-64bit.patch IPC-ShareLite-0.09-string.patch Log Message: 64bit tests are still failing, but it builds now. :/ IPC-ShareLite-0.09-64bit.patch: --- NEW FILE IPC-ShareLite-0.09-64bit.patch --- diff -up IPC-ShareLite-0.09/ShareLite.xs.BAD IPC-ShareLite-0.09/ShareLite.xs --- IPC-ShareLite-0.09/ShareLite.xs.BAD 2008-02-09 16:54:47.000000000 -0500 +++ IPC-ShareLite-0.09/ShareLite.xs 2008-02-09 16:57:21.000000000 -0500 @@ -335,12 +335,16 @@ read_share(share) char* data; int length; CODE: - share = (Share *)SvIV(ST(0)); - length = read_share(share, &data); - ST(0) = sv_newmortal(); - if (length >= 0) { - sv_usepvn((SV*)ST(0), data, length); - } else { + if (length > 0) { + ST(0) = sv_2mortal(newSVpv(data, length)); + free(data); + } + else if (length == 0) { + ST(0) = sv_2mortal(newSVpv("", 0)); + free(data); /* XXX? */ + } + else { + ST(0) = sv_newmortal(); sv_setsv(ST(0), &PL_sv_undef); } diff -up IPC-ShareLite-0.09/typemap.BAD IPC-ShareLite-0.09/typemap --- IPC-ShareLite-0.09/typemap.BAD 2008-02-09 16:57:41.000000000 -0500 +++ IPC-ShareLite-0.09/typemap 2008-02-09 17:00:17.000000000 -0500 @@ -1,14 +1,10 @@ TYPEMAP -Share* SHARE +Share* T_PTROBJ key_t KEY INPUT -SHARE - $var = (Share *)SvIV($arg); KEY $var = (key_t) SvIV($arg); OUTPUT -SHARE - sv_setiv($arg, (I32) $var); IPC-ShareLite-0.09-string.patch: --- NEW FILE IPC-ShareLite-0.09-string.patch --- diff -up IPC-ShareLite-0.09/sharelite.c.BAD IPC-ShareLite-0.09/sharelite.c --- IPC-ShareLite-0.09/sharelite.c.BAD 2008-02-11 11:52:15.000000000 -0500 +++ IPC-ShareLite-0.09/sharelite.c 2008-02-11 11:52:21.000000000 -0500 @@ -5,6 +5,7 @@ #include <sys/shm.h> #include <sys/sem.h> #include <errno.h> +#include <string.h> #include "config.h" #include "sharelite.h" Index: perl-IPC-ShareLite.spec =================================================================== RCS file: /cvs/pkgs/rpms/perl-IPC-ShareLite/devel/perl-IPC-ShareLite.spec,v retrieving revision 1.13 retrieving revision 1.14 diff -u -r1.13 -r1.14 --- perl-IPC-ShareLite.spec 8 Feb 2008 16:29:06 -0000 1.13 +++ perl-IPC-ShareLite.spec 13 Feb 2008 17:56:30 -0000 1.14 @@ -6,6 +6,8 @@ Group: Development/Libraries URL: http://search.cpan.org/dist/IPC-ShareLite/ Source0: http://www.cpan.org/authors/id/M/MA/MAURICE/IPC-ShareLite-%{version}.tar.gz +Patch0: IPC-ShareLite-0.09-64bit.patch +Patch1: IPC-ShareLite-0.09-string.patch BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) BuildRequires: perl(ExtUtils::MakeMaker) Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) @@ -16,6 +18,8 @@ %prep %setup -q -n IPC-ShareLite-%{version} +%patch0 -p1 +%patch1 -p1 %build %{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="$RPM_OPT_FLAGS" < /dev/null