Change 32717 by [EMAIL PROTECTED] on 2007/12/23 12:31:26
In SvPV_free(), assert() that no-one is trying to free up a reference.
Affected files ...
... //depot/perl/sv.h#325 edit
Differences ...
==== //depot/perl/sv.h#325 (text) ====
Index: perl/sv.h
--- perl/sv.h#324~32241~ 2007-11-08 02:31:55.000000000 -0800
+++ perl/sv.h 2007-12-23 04:31:26.000000000 -0800
@@ -1428,6 +1428,7 @@
STMT_START { \
assert(SvTYPE(sv) >= SVt_PV); \
if (SvLEN(sv)) { \
+ assert(!SvROK(sv)); \
if(SvOOK(sv)) { \
SvPV_set(sv, SvPVX_mutable(sv) - SvIVX(sv)); \
SvFLAGS(sv) &= ~SVf_OOK; \
End of Patch.
