In SvPV_free(), assert() that no-one is trying to free up a reference.

p4raw-id: //depot/perl@32717

1 files changed, 1 insertions, 0 deletions

diff --git a/sv.h b/sv.h
index 7098088463..63eccbd8f2 100644
--- a/sv.h
+++ b/sv.h
@@ -1428,6 +1428,7 @@ the scalar's value cannot change unless written to.
     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;			\