This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Replace the body of the rarely used sv_setpviv_mg with a call to
authorNicholas Clark <nick@ccl4.org>
Sat, 29 Oct 2005 17:31:01 +0000 (17:31 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 29 Oct 2005 17:31:01 +0000 (17:31 +0000)
sv_setpviv followed by SvSETMAGIC.

p4raw-id: //depot/perl@25886

sv.c

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