Define sv_insert() as a wrapper to sv_insert_flags(), and move

Perl_sv_insert() to mathoms.c

p4raw-id: //depot/perl@33627

1 files changed, 8 insertions, 0 deletions

diff --git a/mathoms.c b/mathoms.c
index e0cefb0049..082a2ffc7f 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1461,6 +1461,14 @@ Perl_newHV(pTHX)
     return hv;
 }
 
+void
+Perl_sv_insert(pTHX_ SV *const bigstr, const STRLEN offset, const STRLEN len, 
+              const char *const little, const STRLEN littlelen)
+{
+    PERL_ARGS_ASSERT_SV_INSERT;
+    sv_insert_flags(bigstr, offset, len, little, littlelen, SV_GMAGIC);
+}
+
 #endif /* NO_MATHOMS */
 
 /*