X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/272d03f882615257eeac4d2796d0b94e8c4ad868..75219bacf5aacd315b96083de24e82cd8238e99a:/t/op/lex.t

diff --git a/t/op/lex.t b/t/op/lex.t
index df96ed7..e50f0eb 100644
--- a/t/op/lex.t
+++ b/t/op/lex.t
@@ -254,20 +254,21 @@ SKIP:
       or skip "These tests won't work on EBCIDIC", 3;
     fresh_perl_is(
         "BEGIN{\$^H=hex ~0}\xF3",
-        "Integer overflow in hexadecimal number at - line 1.\n" .
-        "Malformed UTF-8 character: \\xf3 (too short; got 1 byte, need 4) at - line 1.",
+        "Integer overflow in hexadecimal number at - line 1.\n"
+      . "Malformed UTF-8 character: \\xf3 (too short; 1 byte available, need 4) at - line 1.\n"
+      . "Malformed UTF-8 character (fatal) at - line 1.",
         {},
         '[perl #128996] - use of PL_op after op is freed'
     );
     fresh_perl_like(
         qq(BEGIN{\$0="";\$^H=-hex join""=>1}""\xFF),
-        qr/Malformed UTF-8 character: \\xff \(too short; got 1 byte, need 13\) at - line 1\./,
+        qr/Malformed UTF-8 character: \\xff \(too short; 1 byte available, need 13\) at - line 1\./,
         {},
         '[perl #128997] - buffer read overflow'
     );
     fresh_perl_like(
         qq(BEGIN{\$^H=0x800000}\n   0m 0\xB5\xB500\xB5\0),
-        qr/Unrecognized character \\x\{0\}; marked by <-- HERE after    0m.*<-- HERE near column 12 at - line 2./,
+        qr/Malformed UTF-8 character: \\xb5 \(unexpected continuation byte 0xb5, with no preceding start byte\)/,
         {},
         '[perl #129000] read before buffer'
     );