{
local $ENV{PERL_STRICTURES_EXTRA} = 1;
- local $strictures::extra_load_states = undef;
+ local %strictures::extra_load_states = ();
local @INC = (sub {
die "Can't locate $_[1] in \@INC (...).\n"
if $extras{$_[1]};
{
open my $fh, '>', \(my $str = '');
- local *STDERR = $fh;
- eval qq{
+ {
+ local *STDERR = $fh;
+ eval qq{
#line 1 "t/load_fail.t"
use strictures;
1;
- } or die "$@";
+ } or die "$@";
+ }
strictures->import;
like(
{
open my $fh, '>', \(my $str = '');
- local *STDERR = $fh;
- eval qq{
+ {
+ local *STDERR = $fh;
+ eval qq{
#line 1 "t/load_fail.t"
use strictures;
1;
- } or die "$@";
+ } or die "$@";
+ }
+
is $str, '', "extra dep load failure is not reported a second time";
}
}