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