diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-04-01 18:47:01 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-04-01 18:47:01 +0000 |
commit | 27aecdc667df7df9dfe00209a819ab9abfc274ea (patch) | |
tree | f4b951fe5064b61f8f9cce5f3a42e1173277e542 | |
parent | 159fce989ffb2a3e85958065b158bbe8c9c3ad62 (diff) | |
download | perl-27aecdc667df7df9dfe00209a819ab9abfc274ea.tar.gz |
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
-rw-r--r-- | sv.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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"); |