diff options
| author | Steve Hay <SteveHay@planit.com> | 2008-12-12 16:47:01 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2008-12-12 16:47:01 +0000 |
| commit | edf5d0c72a96b0546404a694dc04e1bc16e7932e (patch) | |
| tree | 65ddd016c49591b0022f7cf48e34918be5683096 | |
| parent | 39207a6fecadba7197f6bc6afc79eeff5bc06e64 (diff) | |
| download | perl-edf5d0c72a96b0546404a694dc04e1bc16e7932e.tar.gz | |
Apply revision 1241 (and 1250) from the TAP::Harness SVN repo
p4raw-id: //depot/perl@35076
| -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'; |