1package BaseIncOptional; 2 3BEGIN { package main; 4 is $INC[-1], '.', 'trailing dot remains in @INC during optional 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 9use lib 't/lib/on-head'; 10 11push @INC, 't/lib/on-tail'; 12 131; 14