1*edbff7aaSafresh1package BaseIncOptional; 2*edbff7aaSafresh1 3*edbff7aaSafresh1BEGIN { package main; 4*edbff7aaSafresh1 is $INC[-1], '.', 'trailing dot remains in @INC during optional 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*edbff7aaSafresh1use lib 't/lib/on-head'; 10*edbff7aaSafresh1 11*edbff7aaSafresh1push @INC, 't/lib/on-tail'; 12*edbff7aaSafresh1 13*edbff7aaSafresh11; 14