From 7f7dbdc9c79b3476c92af87ef8d1f9178f566fc5 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Mon, 13 Feb 2017 20:40:57 -0700 Subject: [PATCH] Add test for [perl #130675] --- t/lib/croak/toke_l1 | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/t/lib/croak/toke_l1 b/t/lib/croak/toke_l1 index 6765d2c..6d656be 100644 --- a/t/lib/croak/toke_l1 +++ b/t/lib/croak/toke_l1 @@ -14,3 +14,9 @@ EXPECT Malformed UTF-8 character: \xc3\xc3 (unexpected non-continuation byte 0xc3, immediately after start byte 0xc3; need 2 bytes, got 1) at - line 2. Malformed UTF-8 character (fatal) at - line 2. ######## +# NAME [perl #130675] +use utf8;y'0Á'' +EXPECT +Malformed UTF-8 character: \xc1\x27 (unexpected non-continuation byte 0x27, immediately after start byte 0xc1; need 2 bytes, got 1) at - line 1. +Malformed UTF-8 character: \xc1\x27 (any UTF-8 sequence that starts with "\xc1" is overlong which can and should be represented with a different, shorter sequence) at - line 1. +Malformed UTF-8 character (fatal) at - line 1. -- 1.8.3.1