仕様かバグかはわからないですけど*1、タイトルの通りです。flymakeとかするときはきちんと -I とかで渡してるんですけどね。
ってことで、perly_senseコマンドにパッチあてました。かなりNGなパッチですが、動くことは動きます。
% diff -c perly_sense.orig perly_sense *** perly_sense.orig 2008-08-19 16:29:09.000000000 +0900 --- perly_sense 2008-09-02 14:49:15.000000000 +0900 *************** *** 61,66 **** --- 61,72 ---- + sub set_at_inc{ + my $oPs = shift; + if($oPs->setFindProject(dir => '.')){ + push(@INC, $oPs->oProject->aDirIncProject(dirRelativeTo => '.')); + } + } #Oh yes, this file is in serious need of a makeover... sub main_perly_sense { my ($dirOrigin, $fileOrigin, $module, $dir, $file, $row, $col, $sub, $nameClass, $nameMethod, $clearCache, $widthDisplay, $typeIo); *************** *** 87,92 **** --- 93,99 ---- my $oPs = Devel::PerlySense->new(); + set_at_inc($oPs); $typeIo ||= "editor_emacs"; my $rhIoClass = {
*1:PerlySenseでPerlySenseを開発する時のことを考えれば仕様な気がする