Add the correct argument assertion macro to sv_insert_flags().
Nicholas Clark [Tue, 1 Apr 2008 18:47:01 +0000 (18:47 +0000)]
Don't want anything wrongly marked as non-NULL slipping through.

p4raw-id: //depot/perl@33626

sv.c

diff --git a/sv.c b/sv.c
index deefc33..60d11a1 100644 (file)
--- 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");