This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Lexical scoping in case statement is tricky.