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-Tag: v5.10.0~5572
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/df7eb254219cb3c3f8ccbd4843affe6422111cd4

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);
 }