This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
bytes_to_utf8(): Remove obsolete comment
authorKarl Williamson <khw@cpan.org>
Mon, 5 Jun 2017 18:56:28 +0000 (12:56 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 8 Jun 2017 17:04:43 +0000 (11:04 -0600)
It said the logic was duplicated elsewhere, but now the essence of the
logic is in an inlined function used in both places.

utf8.c

diff --git a/utf8.c b/utf8.c
index 6e6f1d5..6c73921 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -2044,9 +2044,6 @@ see L</sv_recode_to_utf8>().
 =cut
 */
 
-/* This logic is duplicated in sv_catpvn_flags, so any bug fixes will
-   likewise need duplication. */
-
 U8*
 Perl_bytes_to_utf8(pTHX_ const U8 *s, STRLEN *len)
 {