Deprecate wide chars in logical string ops

[perl5.git] / t / op / substr.t

diff --git a/t/op/substr.t b/t/op/substr.t
index 71e9e89..eae2403 100644 (file)
--- a/t/op/substr.t
+++ b/t/op/substr.t
@@ -714,6 +714,7 @@ is($x, "\x{100}\x{200}\xFFb");
 # [perl #23765]
 {
     my $a = pack("C", 0xbf);
+    no warnings 'deprecated';
     substr($a, -1) &= chr(0xfeff);
     is($a, "\xbf");
 }