Ensure perlmodlib.pod contains all non-dual-life modules

[perl5.git] / lib / utf8.t

diff --git a/lib/utf8.t b/lib/utf8.t
index e5f9547..d35110b 100644 (file)
--- a/lib/utf8.t
+++ b/lib/utf8.t
@@ -168,7 +168,7 @@ no utf8; # Ironic, no?
     use utf8; %a = ("$malformed" =>"sterling");
     print 'start'; printf '%x,', ord \$_ foreach keys %a; print "end\n";
 BANG
-             qr/^Malformed UTF-8 character: .*? \(too short; \d bytes? available, need \d\).*start\d+,end$/sm
+             qr/^Malformed UTF-8 character: .*? \(unexpected non-continuation byte/
             ],
             );
     foreach (@tests) {