diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-01-05 21:48:30 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-01-05 21:48:30 +0000 |
| commit | 56da5a46eac515b5a165aaf05cb06f7bcdfd8e67 (patch) | |
| tree | d1141131da86b0571657d4b2ec2c414d6e874417 /t | |
| parent | 8927c9d824bf5d960d90467f403bdfa9cbaff854 (diff) | |
| download | perl-56da5a46eac515b5a165aaf05cb06f7bcdfd8e67.tar.gz | |
Some mandatory syntax warnings emitted by the lexer weren't
disableable (bug [perl #24815]).
p4raw-id: //depot/perl@22068
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/toke | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index b2c15ba101..e49376c92b 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -799,4 +799,21 @@ use warnings 'ambiguous'; $s = "(@-)(@+)"; EXPECT +######## +# toke.c +# mandatory warning +eval q/if ($a) { } elseif ($b) { }/; +no warnings "syntax"; +eval q/if ($a) { } elseif ($b) { }/; +EXPECT +elseif should be elsif at (eval 1) line 1. +######## +# toke.c +# mandatory warning +eval q/5 6/; +no warnings "syntax"; +eval q/5 6/; +EXPECT +Number found where operator expected at (eval 1) line 1, near "5 6" + (Missing operator before 6?) |