From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 23 Dec 2007 12:31:26 +0000 (+0000)
Subject: In SvPV_free(), assert() that no-one is trying to free up a reference.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e537ac38cb8a0eeb6351f73ebefac120742db282;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@32717
---

diff --git a/sv.h b/sv.h
index 7098088..63eccbd 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;			\