diff options
| author | Karl Williamson <khw@cpan.org> | 2017-01-10 11:09:33 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2017-01-13 12:20:03 -0700 |
| commit | 92e8e65053b85a7f695f0a1b5270a3567df87863 (patch) | |
| tree | 6beb220e6c16602ecff16a807bd220913b61f0c8 /t/comp | |
| parent | 75ea5c6c82d3602be563bf9c72e8b8e2c711225b (diff) | |
| download | perl-92e8e65053b85a7f695f0a1b5270a3567df87863.tar.gz | |
Various .t's: Escape literal '}' and ']' in patterns
It is clearer to show that these characters which are sometimes meta and
sometimes literal are meant to be taken literally here.
Diffstat (limited to 't/comp')
| -rw-r--r-- | t/comp/parser.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/comp/parser.t b/t/comp/parser.t index 901d66abc6..8be973bfff 100644 --- a/t/comp/parser.t +++ b/t/comp/parser.t @@ -444,7 +444,7 @@ is prototype "Hello::_he_said", '_', 'initial tick in sub declaration'; 'literal -> after an array subscript within ""'); @x = ['string']; # this used to give "string" - like("$x[0]-> [0]", qr/^ARRAY\([^)]*\)-> \[0]\z/, + like("$x[0]-> [0]", qr/^ARRAY\([^)]*\)-> \[0\]\z/, 'literal -> [0] after an array subscript within ""'); } |