summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorSteve Peters <steve@fisharerojo.org>2006-07-10 18:26:25 +0000
committerSteve Peters <steve@fisharerojo.org>2006-07-10 18:26:25 +0000
commit0b7042f97f8d0dfccfa892ce74972b0cb267548e (patch)
treec88c710de0bfc268d2ed00ca46d9bf3d6095bbdc /sv.c
parent17bcfd59e475bc04ce8413d24f07dfe2b5f2ce1c (diff)
downloadperl-0b7042f97f8d0dfccfa892ce74972b0cb267548e.tar.gz
Fix another empty if-statement warning
p4raw-id: //depot/perl@28535
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/sv.c b/sv.c
index d2eed0d4a3..fa576b23ac 100644
--- a/sv.c
+++ b/sv.c
@@ -3935,8 +3935,10 @@ Perl_sv_usepvn_flags(pTHX_ SV *sv, char *ptr, STRLEN len, U32 flags)
if (SvPVX_const(sv))
SvPV_free(sv);
+#ifdef DEBUGGING
if (flags & SV_HAS_TRAILING_NUL)
assert(ptr[len] == '\0');
+#endif
allocate = (flags & SV_HAS_TRAILING_NUL)
? len + 1: PERL_STRLEN_ROUNDUP(len + 1);