X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/a59bce4bbbbefbc5a4b29acdba0b61be1c1754bf..b0f2b690b4ba59b02c372a35658748cb0f31c38e:/pp.c?ds=sidebyside

diff --git a/pp.c b/pp.c
index a051268..65b1f17 100644
--- a/pp.c
+++ b/pp.c
@@ -3015,8 +3015,10 @@ PP(pp_ucfirst)
 	    SvTAINTED_on(sv);
 	    uv = toTITLE_LC_uvchr(utf8n_to_uvchr(s, slen, &ulen, 0));
 	}
-	else
-	    uv = toTITLE_utf8(s);
+	else {
+	    uv   = toTITLE_utf8(s);
+	    ulen = UNISKIP(uv);
+	}
 	
 	tend = uvchr_to_utf8(tmpbuf, uv);
 
@@ -3074,8 +3076,10 @@ PP(pp_lcfirst)
 	    SvTAINTED_on(sv);
 	    uv = toLOWER_LC_uvchr(utf8n_to_uvchr(s, slen, &ulen, 0));
 	}
-	else
-	    uv = toLOWER_utf8(s);
+	else {
+	    uv   = toLOWER_utf8(s);
+	    ulen = UNISKIP(uv);
+	}
 	
 	tend = uvchr_to_utf8(tmpbuf, uv);