From 4f9f927fccd6980d74e6fb0f0c22a853bb80fa0e Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 23 Dec 2007 12:31:26 +0000
Subject: In SvPV_free(), assert() that no-one is trying to free up a
 reference.

p4raw-id: //depot/perl@32717

(cherry picked from commit e537ac38cb8a0eeb6351f73ebefac120742db282)
---
 sv.h | 1 +
 1 file changed, 1 insertion(+)

(limited to 'sv.h')

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;			\
-- 
cgit v1.2.1