From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 17 Feb 2002 18:40:24 +0000 (+0000)
Subject: Tiny tweak.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ddc50ff60892aa3213d30cd8b5926285e2ad06bf;p=p5sagit%2Fp5-mst-13.2.git

Tiny tweak.

p4raw-id: //depot/perl@14732
---

diff --git a/utf8.c b/utf8.c
index ae66f81..314bbff 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1356,12 +1356,8 @@ Perl_to_utf8_case(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, char *norma
 		   }
 #endif
 	      }
-	      else {
-		   UV  c = UNI_TO_NATIVE(*(U8*)s);
-		   U8 *d = uvchr_to_utf8(ustrp, c);
-
-		   len = d - ustrp;
-	      }
+	      else 
+		   len = uvchr_to_utf8(ustrp, UNI_TO_NATIVE(*(U8*)s)) - ustrp;
 	      if (lenp)
 		   *lenp = len;