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

p4raw-id: //depot/perl@32717

(cherry picked from commit e537ac38cb8a0eeb6351f73ebefac120742db282)

1 files changed, 1 insertions, 0 deletions

diff --git a/sv.h b/sv.h
index f7bd913bb6..a7ead1ebbb 100644
--- a/sv.h
+++ b/sv.h
@@ -1431,6 +1431,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;			\