diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-27 21:07:29 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-27 21:07:29 +0000 |
| commit | 1c3923b3a96ff7f6cc3c12f9f8554b36d12daf1b (patch) | |
| tree | dd1a34668db53ec127da52a0c2d831fa9340c2cc /t | |
| parent | 88c74d4bc751d901cc16d8775bf5f51c45cc0228 (diff) | |
| download | perl-1c3923b3a96ff7f6cc3c12f9f8554b36d12daf1b.tar.gz | |
autoquote barewords followed by newline and arrow properly
(variant of fix suggested by Rick Delaney and M.J.T. Guy)
p4raw-id: //depot/perl@5977
Diffstat (limited to 't')
| -rw-r--r-- | t/pragma/warn/toke | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/pragma/warn/toke b/t/pragma/warn/toke index 5aeef82b41..f001ff7654 100644 --- a/t/pragma/warn/toke +++ b/t/pragma/warn/toke @@ -290,6 +290,9 @@ Can't use \1 to mean $1 in expression at - line 4. # toke.c use warnings 'reserved' ; $a = abc; +$a = { def + +=> 1 }; no warnings 'reserved' ; $a = abc; EXPECT |