summaryrefslogtreecommitdiff
path: root/pp_pack.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2017-02-11 13:07:33 -0700
committerKarl Williamson <khw@cpan.org>2017-02-11 21:11:13 -0700
commit14b9bbbc5b192cd6b85fd4ab2aff99bb6471fb0c (patch)
treec1be107863b566545f3a8d66ee19bc4359b8ef5a /pp_pack.c
parentdf3377142c0886d6a189c225c7ceb29f6c3da6f2 (diff)
downloadperl-14b9bbbc5b192cd6b85fd4ab2aff99bb6471fb0c.tar.gz
pp_pack.c: Remove no longer relevant comment
Diffstat (limited to 'pp_pack.c')
-rw-r--r--pp_pack.c3
1 files changed, 0 insertions, 3 deletions
diff --git a/pp_pack.c b/pp_pack.c
index edebc08425..86d138bb05 100644
--- 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",