In looking at proto.h it looks like HASCONST does not enter into the
prototype
for sv_setpvn(), hence I am a bit puzzled about what happens on non
HASCONST
platforms and am not too certain about the enclosed hack.
Nevertheless, I was able to build the perl@15489 kit with this modification
to ext/Encode/Encode.xs:
--- [.ext.encode]encode.xs;1 Mon Mar 25 16:40:41 2002
+++ ./ext/Encode/Encode.xs Mon Mar 25 17:31:42 2002
@@ -581,7 +581,11 @@
SvOOK would be ideal - but sv_backoff does not understand SvLEN == 0
type SVs and sv_clear() calls it ...
*/
+# ifdef HASCONST
+ sv_setpvn(src,(const char *)s+slen,sdone);
+# else
sv_setpvn(src,s+slen,sdone);
+#endif
#else
Move(s + slen, SvPVX(src), sdone , U8);
#endif
End of Hack.
HTH
Peter Prymmer
