diff options
| -rw-r--r-- | ext/Test/Harness/t/compat/regression.t | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/ext/Test/Harness/t/compat/regression.t b/ext/Test/Harness/t/compat/regression.t index 1d848f9174..50a4d516c8 100644 --- a/ext/Test/Harness/t/compat/regression.t +++ b/ext/Test/Harness/t/compat/regression.t @@ -6,12 +6,14 @@ use lib 't/lib'; use Test::More tests => 1; use Test::Harness; +# 28567 +my ( @before, @after ); { - - #28567 + local @INC; unshift @INC, 'wibble'; - my @before = Test::Harness::_filtered_inc(); + @before = Test::Harness::_filtered_inc(); unshift @INC, sub {die}; - my @after = Test::Harness::_filtered_inc(); - is_deeply \@after, \@before, 'subref removed from @INC'; + @after = Test::Harness::_filtered_inc(); } + +is_deeply \@after, \@before, 'subref removed from @INC'; |