This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix another empty if-statement warning
authorSteve Peters <steve@fisharerojo.org>
Mon, 10 Jul 2006 18:26:25 +0000 (18:26 +0000)
committerSteve Peters <steve@fisharerojo.org>
Mon, 10 Jul 2006 18:26:25 +0000 (18:26 +0000)
p4raw-id: //depot/perl@28535

sv.c

diff --git a/sv.c b/sv.c
index d2eed0d..fa576b2 100644 (file)
--- 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);