From 15bcf75945ee67854726e21686d7f6dd6217be8f Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Tue, 14 Mar 2000 00:01:39 +0000 Subject: [PATCH] reference miscount in Devel::Peek that causes debugger to crash unceremoniously when doing "V DB" etc., repeatedly p4raw-id: //depot/perl@5716 --- ext/Devel/Peek/Peek.xs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.7.4