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@xxxxxxxxxxxxxxxxx>]

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

--
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