From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 1 Apr 2008 18:47:01 +0000 (+0000)
Subject: Add the correct argument assertion macro to sv_insert_flags().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=27aecdc667df7df9dfe00209a819ab9abfc274ea;p=p5sagit%2Fp5-mst-13.2.git

Add the correct argument assertion macro to sv_insert_flags().
Don't want anything wrongly marked as non-NULL slipping through.

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

diff --git a/sv.c b/sv.c
index deefc33..60d11a1 100644
--- a/sv.c
+++ b/sv.c
@@ -5149,6 +5149,7 @@ 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);
 }
 
@@ -5171,7 +5172,7 @@ Perl_sv_insert_flags(pTHX_ SV *const bigstr, const STRLEN offset, const STRLEN l
     register I32 i;
     STRLEN curlen;
 
-    PERL_ARGS_ASSERT_SV_INSERT;
+    PERL_ARGS_ASSERT_SV_INSERT_FLAGS;
 
     if (!bigstr)
 	Perl_croak(aTHX_ "Can't modify non-existent substring");