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