[kansaipm] FindBin

[片松 祐司]

片松＠凸版 です

プラグマ lib の説明に書いている通り、
スクリプトと同じフォルダのパスを通そうとすると

#!/usr/bin/perl -wT
use strict;
use FindBin;
use lib,$FindBin::Bin;
…

Insecure dependency in chdir while running with -T switch at C:/Perl58/lib/Cwd.pm line 419.
BEGIN failed--compilation aborted at C:/Perl58/lib/FindBin.pm line 180.
Compilation failed in require at C:\Documents and Settings\katama2\デスクトップ\testFindBin.pl line 3.
BEGIN failed--compilation aborted at C:\Documents and Settings\katama2\デスクトップ\testFindBin.pl line 3.

とエラーが出てきます

この方法はセキュリティ的に良くないという事でしょうか？

また、同様の事を、secureにするにはどうすればよいでしょうか？

今はこの様な感じで適当にごまかしておりますが…
#!/usr/bin/perl -wT
use strict;
package hoge;
BEGIN{
	our $thisScriptPath = __FILE__;
	$thisScriptPath =~ s!\/[^/]+?$!!;
}
use lib $hoge::thisScriptPath;
require 'fuga.pl';
package main;
…
---------1---------2---------3---------4---------5---------6---------7
	片松 祐司 <katama2 at osk.toppan.co.jp>
# 前回会社のsignatureを書いていて、あるルートから会社の人にバレました(^_^;;;