X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doop.c;h=ad626ca6d392ebe25a22dd3059045195d9586571;hb=24e11b2ac803c2241e1c997535309a8b2ce19d1d;hp=e31af500647f62856f3786fe5190433f722a7377;hpb=0453d815b8a74697ff1e5451c27aba2fe537b8e0;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doop.c b/doop.c
index e31af50..ad626ca 100644
--- a/doop.c
+++ b/doop.c
@@ -746,6 +746,7 @@ Perl_do_vecset(pTHX_ SV *sv)
 	    s[offset+3] = lval & 255;
 	}
     }
+    SvSETMAGIC(targ);
 }
 
 void