diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-14 00:01:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-14 00:01:39 +0000 |
| commit | 15bcf75945ee67854726e21686d7f6dd6217be8f (patch) | |
| tree | fab38313734e3cfc3ee2e650e956b5ea74e0691d /ext/Devel | |
| parent | 4a4eefd0ee0da7b6a2b5b0d021684bca80971b79 (diff) | |
| download | perl-15bcf75945ee67854726e21686d7f6dd6217be8f.tar.gz | |
reference miscount in Devel::Peek that causes debugger to
crash unceremoniously when doing "V DB" etc., repeatedly
p4raw-id: //depot/perl@5716
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/Peek.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Devel/Peek/Peek.xs b/ext/Devel/Peek/Peek.xs index e7f5746803..9837e9ceb2 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 |