From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 29 Oct 2005 17:31:01 +0000 (+0000)
Subject: Replace the body of the rarely used sv_setpviv_mg with a call to
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=df7eb254219cb3c3f8ccbd4843affe6422111cd4;p=p5sagit%2Fp5-mst-13.2.git

Replace the body of the rarely used sv_setpviv_mg with a call to
sv_setpviv followed by SvSETMAGIC.

p4raw-id: //depot/perl@25886
---

diff --git a/sv.c b/sv.c
index 94f4b32..0589dac 100644
--- a/sv.c
+++ b/sv.c
@@ -8135,11 +8135,7 @@ Like C<sv_setpviv>, but also handles 'set' magic.
 void
 Perl_sv_setpviv_mg(pTHX_ SV *sv, IV iv)
 {
-    char buf[TYPE_CHARS(UV)];
-    char *ebuf;
-    char * const ptr = uiv_2buf(buf, iv, 0, 0, &ebuf);
-
-    sv_setpvn(sv, ptr, ebuf - ptr);
+    sv_setpviv(sv, iv);
     SvSETMAGIC(sv);
 }