XXX Patch for discussion: [perl #117355] [lu]cfirst don't respect 'us…

…e bytes'
Perl · Aug 12, 2013 · 93e088e · 93e088e
1 parent ac99361
commit 93e088e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/pp.c b/pp.c
@@ -3664,7 +3664,7 @@ PP(pp_ucfirst)
 
 	/* In a "use bytes" we don't treat the source as UTF-8, but, still want
 	 * the destination to retain that flag */
-	if (SvUTF8(source))
+	if (SvUTF8(source) && ! IN_BYTES)
 	    SvUTF8_on(dest);
 
 	if (!inplace) {	/* Finish the rest of the string, unchanged */