Copy call checker when cloning closure prototype

Otherwise cv_set_call_checker has no effect inside an attribute han-
dler for a closure.

1 files changed, 2 insertions, 0 deletions

diff --git a/pad.c b/pad.c
index c4362af0d4..3b8cac2203 100644
--- a/pad.c
+++ b/pad.c
@@ -1912,6 +1912,8 @@ Perl_cv_clone(pTHX_ CV *proto)
 
     if (SvPOK(proto))
 	sv_setpvn(MUTABLE_SV(cv), SvPVX_const(proto), SvCUR(proto));
+    if (SvMAGIC(proto))
+	mg_copy((SV *)proto, (SV *)cv, 0, 0);
 
     CvPADLIST(cv) = pad_new(padnew_CLONE|padnew_SAVE);