This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Call SvMAGICAL_off in mg_free
[perl5.git] / sv.c
diff --git a/sv.c b/sv.c
index 44307d4..716c2ee 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -3553,7 +3553,6 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV* sstr, const I32 flags)
     {
        /* need to nuke the magic */
        mg_free(dstr);
-       SvRMAGICAL_off(dstr);
     }
 
     /* There's a lot of redundancy below but we're going for speed here */