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