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