Modification of non-creatable array value attempted

[vytas-dauksa]

Perl::Lint errors out on following code:
local $SIG{ALRM} = sub { die "Timeout"; };
if (1) { die "Blaa"; }

vytas@tor:/tmp$ perlbrew exec perl -MCarp::Always c.pl

perl-5.20.1

Modification of non-creatable array value attempted, subscript -1 at /home/vytas/perl5/perlbrew/perls/perl-5.20.1/lib/site_perl/5.20.1/Perl/Lint/Policy/InputOutput/RequireBriefOpen.pm line 196, <$fh> line 1.
Perl::Lint::Policy::InputOutput::RequireBriefOpen::evaluate("Perl::Lint::Policy::InputOutput::RequireBriefOpen", "u.pl", ARRAY(0x1bfd588), "local $SIG{ALRM} = sub { die "Timeout"; };\x{a}\x{a}if (1) { die "Bla"..., HASH(0x1853148)) called at /home/vytas/perl5/perlbrew/perls/perl-5.20.1/lib/site_perl/5.20.1/Perl/Lint.pm line 91
Perl::Lint::_lint(Perl::Lint=HASH(0x27f0f50), "local $SIG{ALRM} = sub { die "Timeout"; };\x{a}\x{a}if (1) { die "Bla"..., "u.pl") called at /home/vytas/perl5/perlbrew/perls/perl-5.20.1/lib/site_perl/5.20.1/Perl/Lint.pm line 70
Perl::Lint::lint(Perl::Lint=HASH(0x27f0f50), ARRAY(0x27e7b28)) called at c.pl line 11

Running latest Perl::Lint version ( 0.10 ).

[mephinet]

I also ran into this bug for a file that uses OX' syntactic sugar "as". The testcase added in dc8689f reproduces the issue. When stepping through the code of Perl::Lint::Policy::InputOutput::RequireBriefOpen, I can see that it calls push @opened_file_handlers_for_each_depth once, but pop @opened_file_handlers_for_each_depth twice - so the cause seems to be that %function_declared_depth gets confused...