blob: 1d848f91743efc7948b759ae21be4570a61140f3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/bin/perl -w
use strict;
use lib 't/lib';
use Test::More tests => 1;
use Test::Harness;
{
#28567
unshift @INC, 'wibble';
my @before = Test::Harness::_filtered_inc();
unshift @INC, sub {die};
my @after = Test::Harness::_filtered_inc();
is_deeply \@after, \@before, 'subref removed from @INC';
}
|
