diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/toke | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index eab22fbbc9..5dbef1ab62 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -1713,3 +1713,11 @@ $_ = ""; s/^/ ${time} /e EXPECT Ambiguous use of ${time} resolved to $time at - line 4. +######## +# NAME [perl #133850] another case +use warnings; +%x = qw(a b c d); +$_ = ""; +s/^/ @x {a} /e +EXPECT +Scalar value @x{"a"} better written as $x{"a"} at - line 4. |