Apply revision 1241 (and 1250) from the TAP::Harness SVN repo
authorSteve Hay <SteveHay@planit.com>
Fri, 12 Dec 2008 16:47:01 +0000 (16:47 +0000)
committerDavid Mitchell <davem@iabyn.com>
Sat, 14 Feb 2009 23:29:38 +0000 (23:29 +0000)
p4raw-id: //depot/perl@35076

(cherry picked from commit 58ff3f5e5779766d8f447ee3f0681a91d699f619)

ext/Test/Harness/t/compat/regression.t

index 1d848f9..50a4d51 100644 (file)
@@ -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';