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


1
2
3
4
5
6
7
8
9

package BaseIncMandatory;

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

1;