This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add test for [perl #130675]
authorKarl Williamson <khw@cpan.org>
Tue, 14 Feb 2017 03:40:57 +0000 (20:40 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 14 Feb 2017 04:24:09 +0000 (21:24 -0700)
t/lib/croak/toke_l1

index 6765d2c..6d656be 100644 (file)
@@ -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.