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
Tom Callaway (spot)
fedora-extras-commits at redhat.com
Wed Feb 13 17:57:07 UTC 2008
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
More information about the fedora-extras-commits
mailing list