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

Osment

搞文本Session。。。
已经以为成功。。
想到Session可能会自己损坏。所以。。自己做了测试，结果，发现人为改坏Session文本后，程序居然读取失败后 500 err？
明明是在模块中  CheckSession时候用的eval呀。应该不会500err才是。但是err.log还是指向的那句

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

复制代码

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

http://www.easunstudio.com/upload/perl/usr/7/16/cgi_1105459562.rar  



测试代码说明 ：
1。Session目录需要可读/写 （777目录+666文件）。
2。我用的相对路径，如果你的主机不支持相对路径，请把

1. my $session = DiGiSession->;new($c_ss_id,'Session','3m');

复制代码

改成

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

复制代码

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

superdoctor

eval ( "require \"$self->;{_API}->;{_SESSION_FILE}\";" ) || $self->;NewSession();
我怀疑你这句用法就用问题可能,你print $@出来,看看到底什么错

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

Osment

Can't locate object method "NewSession" via package "DiGiSession" at DiGiSession.pm line 49.

是这个。
不加 2级 eval err.log也是这个。指向的那句 就是这句了。

superdoctor

我确实没有在你的文件里找到NewSession方法啊,只有一个SessionNew,是不是你写错了,你改过莱试试

Osment

err.log说的是 new()函数。。中间的::帖在论坛上被过滤掉了。汗。

Osment

[quote]原帖由 "superdoctor"]我确实没有在你的文件里找到NewSession方法啊,只有一个SessionNew,是不是你写错了,你改过莱试试[/quote 发表：

汗。。回家后仔细检查，果真是这个原因。。
看来半点马虎不得：）
谢谢：）
本帖可以结束了。