This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make ‘No comma allowed’ respect lex subs
authorFather Chrysostomos <sprout@cpan.org>
Tue, 16 Sep 2014 16:43:31 +0000 (09:43 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 16 Sep 2014 17:03:57 +0000 (10:03 -0700)
commitdffc502431a92571665171f2d25d28f95339feec
treee3f5ced37cd29cf0f22995937ed235bb842b1e7d
parent1402e1ebcb8d82c4d6423a1d27f1f5b6791da0a8
Make ‘No comma allowed’ respect lex subs

$ ./perl -lIlib -XMfeature=:all -e 'sub foo {} print foo,bar'
bar
$ ./perl -lIlib -XMfeature=:all -e 'state sub foo {} print foo,bar'
No comma allowed after filehandle at -e line 1.

This commit makes the latter behave like the former.
t/op/lexsub.t
toke.c