File pyperl-1.0.1d-new-perl-fix.patch of Package python-perlmodule

Overview Repositories Revisions Requests Users Attributes Meta

File pyperl-1.0.1d-new-perl-fix.patch of Package python-perlmodule

--- pyperl-1.0.1d/svrv_object.c~	2008-02-26 15:28:42.922168163 +0100
+++ pyperl-1.0.1d/svrv_object.c	2008-02-26 15:41:26.966256791 +0100
@@ -1174,7 +1174,7 @@ pysvrv_getattr(PySVRV *self, char *name)
 	}
     }
     else if (strcmp(name, "__type__") == 0) {
-	char *tmp;
+	const char *tmp;
 	ENTER_PERL;
 	tmp = sv_reftype(SvRV(self->rv), 0);
 	ENTER_PYTHON;
--- pyperl-1.0.1d/try_perlapi.pl~	2007-10-16 11:42:41.000000000 +0200
+++ pyperl-1.0.1d/try_perlapi.pl	2008-02-27 14:01:17.464050883 +0100
@@ -51,7 +51,7 @@ fake_entertry()
     ENTER;
     SAVETMPS;
 
-    Perl_push_return(aTHX_ Nullop);
+//    Perl_push_return(aTHX_ Nullop);
     PUSHBLOCK(cx, (CXt_EVAL|CXp_TRYBLOCK), PL_stack_sp);
     PUSHEVAL(cx, 0, 0);
     PL_eval_root = PL_op;
@@ -72,7 +72,7 @@ fake_leavetry(I32 oldscope)
 
         POPBLOCK(cx,newpm);
         POPEVAL(cx);
-        Perl_pop_return(aTHX);
+//        Perl_pop_return(aTHX);
         PL_curpm = newpm;
     }
 
--- pyperl-1.0.1d/svrv_object.h~	2008-02-27 14:15:49.000000000 +0100
+++ pyperl-1.0.1d/svrv_object.h	2008-02-27 14:16:51.000000000 +0100
@@ -1,6 +1,8 @@
 /* Copyright 2000-2001 ActiveState
  */
 
+#include <XSUB.h>
+
 /* Python < 2.5 compat */
 #if PY_VERSION_HEX < 0x02050000 && !defined(PY_SSIZE_T_MIN)
 typedef int Py_ssize_t;

Places

File pyperl-1.0.1d-new-perl-fix.patch of Package python-perlmodule

Places