summaryrefslogtreecommitdiff
path: root/scope.h
diff options
context:
space:
mode:
authorDave Mitchell <davem@fdisolutions.com>2004-01-17 16:12:32 +0000
committerDave Mitchell <davem@fdisolutions.com>2004-01-17 16:12:32 +0000
commitb3a3b3a1da8f5142edf3e194532b08316f895282 (patch)
treea7599adfe749d92c3c1e340401d2cf679de77a8c /scope.h
parentd3dc607d97b8af5aa45522c8a75a78694d3c7733 (diff)
downloadperl-b3a3b3a1da8f5142edf3e194532b08316f895282.tar.gz
[perl #24914] freeing a CV reference that was currently being
executed caused coredumps p4raw-id: //depot/perl@22167
Diffstat (limited to 'scope.h')
-rw-r--r--scope.h1
1 files changed, 1 insertions, 0 deletions
diff --git a/scope.h b/scope.h
index 50b40faf7d..c0bd3448b8 100644
--- a/scope.h
+++ b/scope.h
@@ -167,6 +167,7 @@ Closing bracket on a callback. See C<ENTER> and L<perlcall>.
SSCHECK(2); \
SSPUSHPTR((SV*)PL_comppad); \
SSPUSHINT(SAVEt_COMPPAD); \
+ SvREFCNT_inc(PL_comppad); \
} STMT_END
#ifdef USE_ITHREADS