This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test that __PACKAGE__ is read-only
authorFather Chrysostomos <sprout@cpan.org>
Sun, 4 Aug 2013 06:08:42 +0000 (23:08 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 4 Aug 2013 06:41:21 +0000 (23:41 -0700)
commit9dbc968d1a9a9f1e73f1da3d0cd81229c81b27ab
tree526304414bd5110a45fd13c04289ba11b7a9c4a3
parent9a0a8507578c570661730c652a2ff084dd3b9fe9
Test that __PACKAGE__ is read-only

I.e., test that this bug is fixed:

$ perl -e 'for(1..10){for(__PACKAGE__){warn $_; $_++}}'
main at -e line 1.
maio at -e line 1.
maip at -e line 1.
maiq at -e line 1.
mair at -e line 1.
mais at -e line 1.
mait at -e line 1.
maiu at -e line 1.
maiv at -e line 1.
maiw at -e line 1.

for my$p(__PACKAGE__){$p++for+1..55664
,;!print"Just another \u$p hacker,\n"}
t/comp/parser.t