From: Steve Hay <SteveHay@planit.com>
Date: Fri, 12 Dec 2008 16:47:01 +0000 (+0000)
Subject: Apply revision 1241 (and 1250) from the TAP::Harness SVN repo
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=58ff3f5e5779766d8f447ee3f0681a91d699f619;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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';