gnu/usr.bin/perl/dist/base/t/lib/BaseIncOptional.pm


1
2
3
4
5
6
7
8
9
10
11
12
13

package BaseIncOptional;

BEGIN { package main;
    is $INC[-1], '.', 'trailing dot remains in @INC during optional module load from base';
    ok eval('require t::lib::Dummy'), '... and modules load fine from .' or diag "$@";
    delete $INC{'t/lib/Dummy.pm'};
}

use lib 't/lib/on-head';

push @INC, 't/lib/on-tail';

1;