fix vec() on magic values

	Message-ID: <19990712123005.A11355@homer.diplex.co.uk>
	Subject: [PATCH 5.005_57] Re: do_vecset is broken.  Re: [ID 19990703.003].

p4raw-id: //depot/perl@3680

1 files changed, 1 insertions, 0 deletions

diff --git a/doop.c b/doop.c
index e31af50064..ad626ca6d3 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