From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 14 Mar 2000 00:01:39 +0000 (+0000)
Subject: reference miscount in Devel::Peek that causes debugger to
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=15bcf75945ee67854726e21686d7f6dd6217be8f;p=p5sagit%2Fp5-mst-13.2.git

reference miscount in Devel::Peek that causes debugger to
crash unceremoniously when doing "V DB" etc., repeatedly

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

diff --git a/ext/Devel/Peek/Peek.xs b/ext/Devel/Peek/Peek.xs
index e7f5746..9837e9c 100644
--- a/ext/Devel/Peek/Peek.xs
+++ b/ext/Devel/Peek/Peek.xs
@@ -127,7 +127,7 @@ DeadCode(pTHX)
 
 #define _CvGV(cv)					\
 	(SvROK(cv) && (SvTYPE(SvRV(cv))==SVt_PVCV)	\
-	 ? (SV*)CvGV((CV*)SvRV(cv)) : &PL_sv_undef)
+	 ? SvREFCNT_inc(CvGV((CV*)SvRV(cv))) : &PL_sv_undef)
 
 MODULE = Devel::Peek		PACKAGE = Devel::Peek