summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2008-04-01 18:47:01 +0000
committerNicholas Clark <nick@ccl4.org>2008-04-01 18:47:01 +0000
commit27aecdc667df7df9dfe00209a819ab9abfc274ea (patch)
treef4b951fe5064b61f8f9cce5f3a42e1173277e542 /sv.c
parent159fce989ffb2a3e85958065b158bbe8c9c3ad62 (diff)
downloadperl-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
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index deefc33257..60d11a100e 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");