Apply revision 1241 (and 1250) from the TAP::Harness SVN repo

p4raw-id: //depot/perl@35076

diff --git a/ext/Test/Harness/t/compat/regression.t b/ext/Test/Harness/t/compat/regression.t
index 1d848f9..50a4d51 100644 (file)
--- 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';