summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-12-01 15:26:09 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-12-01 15:26:09 +0000
commit50627f8079af8414075aa4b4eec91a3bb1aa86b8 (patch)
tree51f0dcfe1339d82f9075ac0c55771283702352a9 /sv.c
parented2b91d29c1b58175db252ccbe8263efa90214d8 (diff)
downloadperl-50627f8079af8414075aa4b4eec91a3bb1aa86b8.tar.gz
Missing #ifdef, noticed by Jan Dubois
p4raw-id: //depot/perl@26238
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 14a5fab6d4..0b85abed09 100644
--- 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;
+#ifdef PERL_MALLOC_WRAP
if (have < zeros)
Perl_croak_nocontext(PL_memory_wrap);
+#endif
if (is_utf8 != has_utf8) {
if (is_utf8) {