Add TODO test for [perl #125493]

diff --git a/t/lib/warnings/op b/t/lib/warnings/op
index 46885e2..b128eec 100644 (file)
--- a/t/lib/warnings/op
+++ b/t/lib/warnings/op
@@ -2117,3 +2117,9 @@ do xa for qq(sin);
 do xa for my $a;
 do xa for my @a;
 EXPECT
+########
+# TODO [perl #125493
+use warnings;
+$_="3.14159";
+tr/0-9/\x{6F0}-\x{6F9}/;
+EXPECT