This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4c3a548
)
Don't test the core XS code yet with PERL_DEBUG_COW > 1
author
Nicholas Clark
<nick@ccl4.org>
Wed, 8 Jun 2005 09:09:28 +0000
(09:09 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Wed, 8 Jun 2005 09:09:28 +0000
(09:09 +0000)
p4raw-id: //depot/perl@24751
sv.h
patch
|
blob
|
blame
|
history
diff --git
a/sv.h
b/sv.h
index
72c3cef
..
6c79c19
100644
(file)
--- a/
sv.h
+++ b/
sv.h
@@
-873,7
+873,8
@@
in gv.h: */
#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)