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