It's UTF-8, not UTF8. (Note: not s/UTF-8/UTF8/,

since that would break a lot of code.)  Also few
stray UTF16s, UTF32s, and "encoded in Unicode".

p4raw-id: //depot/perl@21198

1 files changed, 1 insertions, 1 deletions

diff --git a/doop.c b/doop.c
index 89fe4614cc..5a41f6ac42 100644
--- a/doop.c
+++ b/doop.c
@@ -42,7 +42,7 @@ S_do_trans_simple(pTHX_ SV *sv)
     s = (U8*)SvPV(sv, len);
     send = s + len;
 
-    /* First, take care of non-UTF8 input strings, because they're easy */
+    /* First, take care of non-UTF-8 input strings, because they're easy */
     if (!SvUTF8(sv)) {
 	while (s < send) {
 	    if ((ch = tbl[*s]) >= 0) {