Change 24751 by [EMAIL PROTECTED] on 2005/06/08 09:09:28
Don't test the core XS code yet with PERL_DEBUG_COW > 1
Affected files ...
... //depot/perl/sv.h#201 edit
Differences ...
==== //depot/perl/sv.h#201 (text) ====
Index: perl/sv.h
--- perl/sv.h#200~24747~ Wed Jun 8 01:05:47 2005
+++ perl/sv.h Wed Jun 8 02:09:28 2005
@@ -873,7 +873,8 @@
#define SvIVX(sv) (0 + ((XPVIV*) SvANY(sv))->xiv_iv)
#define SvUVX(sv) (0 + ((XPVUV*) SvANY(sv))->xuv_uv)
#define SvNVX(sv) (0 + ((XPVNV*) SvANY(sv))->xnv_nv)
-#if PERL_DEBUG_COW > 1
+/* Don't test the core XS code yet. */
+#if defined (PERL_CORE) && PERL_DEBUG_COW > 1
#define SvPVX(sv) (0 + (assert(!SvREADONLY(sv)), (sv)->sv_u.svu_pv))
#else
#define SvPVX(sv) SvPVX_mutable(sv)
End of Patch.
