bump patchlevel; other minor fixes for clean build and test on

[perl5.git] / sv.c

diff --git a/sv.c b/sv.c
index 807e63c..9dfa4f6 100644 (file)
--- 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);