From 1bd104fb42e49d4507cd6d328c6a09508c790c28 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 27 Mar 2001 14:00:24 +0000
Subject: sv_catpvf(sv, "%c", 128) should not UTF-8-ify the sv, noted by Gisle
 and fixed by NI-S.

p4raw-id: //depot/perl@9375
---
 sv.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'sv.c')

diff --git a/sv.c b/sv.c
index 315c85b1a0..75b35a81ff 100644
--- a/sv.c
+++ b/sv.c
@@ -7130,7 +7130,9 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 
 	case 'c':
 	    uv = args ? va_arg(*args, int) : SvIVx(argsv);
-	    if ((uv > 255 || (!UNI_IS_INVARIANT(uv) || SvUTF8(sv))) && !IN_BYTE) {
+	    if ((uv > 255 ||
+		 (!UNI_IS_INVARIANT(uv) && SvUTF8(sv)))
+		&& !IN_BYTE) {
 		eptr = (char*)utf8buf;
 		elen = uvchr_to_utf8((U8*)eptr, uv) - utf8buf;
 		is_utf = TRUE;
-- 
cgit v1.2.1