Make like() and unlike() in t/test.pl refuse non-qr// arguments

[perl5.git] / t / uni / readline.t

diff --git a/t/uni/readline.t b/t/uni/readline.t
index a83558e..f865bc0 100644 (file)
--- a/t/uni/readline.t
+++ b/t/uni/readline.t
@@ -15,7 +15,7 @@ use open qw( :utf8 :std );
 # TARG. Test that we respect SvREADONLY.
 use constant roref=>\2;
 eval { for (roref) { $_ = <Fʜ> } };
-like($@, 'Modification of a read-only value attempted', '[perl #19566]');
+like($@, qr/Modification of a read-only value attempted/, '[perl #19566]');
 
 # [perl #21628]
 {