[困惑]eval 在模块中出现问题/?

搞文本Session。。。
已经以为成功。。
想到Session可能会自己损坏。所以。。自己做了测试,结果,发现人为改坏Session文本后,程序居然读取失败后 500 err?

明明是在模块中  CheckSession时候用的eval呀。应该不会500err才是。但是err.log还是指向的那句

eval ( "require \"$self->{_API}->{_SESSION_FILE}\";" ) || $self->NewSession();


附上完整代码。 问题就出现在DiGiSession.pm模块中。。。

//www.syhtcgf.com/static/upload/early/cgi_1105459562.rar

测试代码说明 :
1。Session目录需要可读/写 (777目录+666文件)。
2。我用的相对路径,如果你的主机不支持相对路径,请把
my $session = DiGiSession->new($c_ss_id,'Session','3m');

改成
my $session = DiGiSession->new($c_ss_id,'你的路径/Session','3m');


声明:DiGiSession.pm模块版权为Firzen<firzen@perlchina.org>所有,我只是改了一点东西而已。呵呵:)