X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/e8c20960f1361f5ece79a169ec3ac2d3421a8427..0f4592effc29e9b2deb638f6f7e6129ffa8326e3:/sv.c

diff --git a/sv.c b/sv.c
index 807e63c..9dfa4f6 100644
--- a/sv.c
+++ b/sv.c
@@ -4047,6 +4047,7 @@ sv_2cv(SV *sv, HV **st, GV **gvp, I32 lref)
 	if (SvGMAGICAL(sv))
 	    mg_get(sv);
 	if (SvROK(sv)) {
+	    dTHR;
 	    SV **sp = &sv;		/* Used in tryAMAGICunDEREF macro. */
 	    tryAMAGICunDEREF(to_cv);