По-видимому, мое понимание no autovivification прагмы несовершенно, так как поведение не-умирающих на линии-19 следующего script чрезвычайно удивительно для меня.
use 5.014;
use strict;
use warnings;
no autovivification qw(fetch exists delete warn);
{
my $foo = undef;
my $thing = $foo->{bar};
# this does not die, as expected
die if defined $foo;
}
{
my $foo = undef;
do_nothing( $foo->{bar} );
# I would expect this to die, but it doesn't
die unless defined $foo;
}
sub do_nothing {
return undef;
}
Запуск script вызывает:
Reference was vivified at test.pl line 8.
Вопрос: почему autovivified $foo
, когда $foo->{bar}
предоставляется в качестве аргумента для sub, даже если no autovivification
действует?