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