diff options
| author | Tony Cook <tony@develop-help.com> | 2019-05-29 13:47:36 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2019-06-11 16:08:36 +1000 |
| commit | be9b0510216085dfb679b29a41e483c07effbb79 (patch) | |
| tree | 5d9f86722272a284880d95d71a0c6359072dfa6a /t | |
| parent | 10724e88639b32d6d6f1024535e3f7f7aee4fb9e (diff) | |
| download | perl-be9b0510216085dfb679b29a41e483c07effbb79.tar.gz | |
(perl #133850) allow @x{...} with space in sub-parse
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. |