>>>
>>>A patch for this is attached.
>>
>>Uh-oh. A working patch is attached in here.
>
>
> First time I've seen a zero-length file described as a "working
> patch" :-(
Just rotate the bits 90 degrees clockwise, shake well, and look against
a strong light. Oh, right, there are no bits to rotate. Try these bits.
>
--- perl.h.dist 2005-07-03 11:09:01.000000000 +0300
+++ perl.h 2005-07-03 11:20:46.000000000 +0300
@@ -4050,8 +4050,10 @@
#ifdef DOINIT
# define MGVTBL_SET(var,a,b,c,d,e,f,g) EXTCONST MGVTBL var = {a,b,c,d,e,f,g}
+# define MGVTBL_SET_CONST_MAGIC_GET(var,a,b,c,d,e,f,g) EXTCONST MGVTBL var =
{(int (*)(aTHX_ SV *, MAGIC *))a,b,c,d,e,f,g} /* Like MGVTBL_SET but with the
get magic having a const MG* */
#else
# define MGVTBL_SET(var,a,b,c,d,e,f,g) EXTCONST MGVTBL var
+# define MGVTBL_SET_CONST_MAGIC_GET(var,a,b,c,d,e,f,g) EXTCONST MGVTBL var
#endif
MGVTBL_SET(
@@ -4172,7 +4174,7 @@
NULL
);
-MGVTBL_SET(
+MGVTBL_SET_CONST_MAGIC_GET(
PL_vtbl_arylen,
MEMBER_TO_FPTR(Perl_magic_getarylen),
MEMBER_TO_FPTR(Perl_magic_setarylen),
