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