projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4a4eefd
)
reference miscount in Devel::Peek that causes debugger to
author
Gurusamy Sarathy
<gsar@cpan.org>
Tue, 14 Mar 2000 00:01:39 +0000
(
00:01
+0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Tue, 14 Mar 2000 00:01:39 +0000
(
00:01
+0000)
crash unceremoniously when doing "V DB" etc., repeatedly
p4raw-id: //depot/perl@5716
ext/Devel/Peek/Peek.xs
patch
|
blob
|
history
diff --git
a/ext/Devel/Peek/Peek.xs
b/ext/Devel/Peek/Peek.xs
index
e7f5746
..
9837e9c
100644
(file)
--- 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