This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_pack.c: Remove no longer relevant comment
authorKarl Williamson <khw@cpan.org>
Sat, 11 Feb 2017 20:07:33 +0000 (13:07 -0700)
committerKarl Williamson <khw@cpan.org>
Sun, 12 Feb 2017 04:11:13 +0000 (21:11 -0700)
pp_pack.c

index edebc08..86d138b 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -258,9 +258,6 @@ utf8_to_byte(pTHX_ const char **s, const char *end, I32 datumtype)
     }
     val = utf8n_to_uvchr((U8 *) *s, end-*s, &retlen,
                         ckWARN(WARN_UTF8) ? 0 : UTF8_ALLOW_ANY);
-    /* We try to process malformed UTF-8 as much as possible (preferably with
-       warnings), but these two mean we make no progress in the string and
-       might enter an infinite loop */
     if (retlen == (STRLEN) -1)
       croak:
        Perl_croak(aTHX_ "Malformed UTF-8 string in '%c' format in unpack",