From 591166816e29d06350e6ec8041e206c1afa73419 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 4 Jan 2002 23:36:23 +0000 Subject: [PATCH] In the UTF-8 branch of crypt() the extra \0 byte is required, found by Marc Lehmann. p4raw-id: //depot/perl@14085 --- pp.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pp.c b/pp.c index eb386ee..8b58c16 100644 --- a/pp.c +++ b/pp.c @@ -3180,12 +3180,12 @@ PP(pp_crypt) char *tmps = SvPV(left, len); char *t = 0; if (DO_UTF8(left)) { - /* If Unicode take the crypt() of the low 8 bits - * of the characters of the string. */ + /* If Unicode take the crypt() of the low 8 bits of + * the characters of the string. Yes, we made this up. */ char *s = tmps; char *send = tmps + len; STRLEN i = 0; - Newz(688, t, len, char); + Newz(688, t, len + 1, char); while (s < send) { t[i++] = utf8_to_uvchr((U8*)s, 0) & 0xFF; s += UTF8SKIP(s); -- 1.8.3.1