This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Missing #ifdef, noticed by Jan Dubois
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 1 Dec 2005 15:26:09 +0000 (15:26 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 1 Dec 2005 15:26:09 +0000 (15:26 +0000)
p4raw-id: //depot/perl@26238

sv.c

diff --git a/sv.c b/sv.c
index 14a5fab..0b85abe 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -8891,8 +8891,10 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 
        /* calculate width before utf8_upgrade changes it */
        have = esignlen + zeros + elen;
 
        /* calculate width before utf8_upgrade changes it */
        have = esignlen + zeros + elen;
+#ifdef PERL_MALLOC_WRAP
        if (have < zeros)
            Perl_croak_nocontext(PL_memory_wrap);
        if (have < zeros)
            Perl_croak_nocontext(PL_memory_wrap);
+#endif
 
        if (is_utf8 != has_utf8) {
             if (is_utf8) {
 
        if (is_utf8 != has_utf8) {
             if (is_utf8) {