diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/toke | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index 5d3110448e..018f188076 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -1521,3 +1521,13 @@ Use of literal control characters in variable names is deprecated at (eval 2) li -a; ;-a; EXPECT +######## +# toke.c +# [perl #124113] Compile-time warning with UTF8 variable in array index +use warnings; +use utf8; +my $𝛃 = 0; +my @array = (0); +my $v = $array[ 0 + $𝛃 ]; + $v = $array[ $𝛃 + 0 ]; +EXPECT |