Callback called exit.问题讨论

gsging

出现一些比较奇怪的问题，描述出来，希望大家帮我分析一下应该从什么方面入手。

环境：
软件：apache-1.3.31/mod_perl-1.29/mod_ssl-2.8.18-1.3.31/openssl-0.9.7c/AS 4
硬件：P43.0/512M的TCL品牌机

现象：
1、起初访问网页能够访问，但是20秒之后就访问不了了，在apache的error_log文件中看到以下错误：

1. 
   
2. Out of memory!
   
3. Callback called exit.
   

复制代码

2、以上现象在置之不理1～2个小时以后会自动消失。

分析：
从google搜索相关Callback called exit.发现是mod_perl的提示。应该是程序有死循环错误导致内存耗尽。
最后定位到以下语句出错：

1. $loadclass->new->dispatch($page);

复制代码

我在前后分别加了以下内容，变成：

1. 
   
2. warn "gusg: begin";
   
3.     warn Dumper $loadclass->new;
   
4.     if ($loadclass->new->can("dispatch")) {
   
5.         warn "gusg: dispatch is OK";
   
6.     }
   
7.     warn "gusg: \$page is $page";
   
8.     $loadclass->new->dispatch($page);
   
9.     warn "gusg: end";
   

复制代码

注释掉$loadclass->new->dispatch($page);后就可以运行显示warn "gusg:end"。
去掉注释运行就出显示Callback called exit.
前面的

1. warn "gusg: begin";
   
2.     warn Dumper $loadclass->new;
   
3.     if ($loadclass->new->can("dispatch")) {
   
4.         warn "gusg: dispatch is OK";
   
5.     }
   
6.     warn "gusg: \$page is $page";
   

复制代码

都可以正常打印，而且内容确实是我想要的内容。

写的比较乱。请大家帮我分析一下还有可能是什么原因引起的。我实在找不出问题所在。
读别人的程序真是费劲阿，尤其是在什么文档都没有的情况下。
由于程序比较大，有好一百多个模块，所以不能将所有内容都贴出来。如果大家分析过程中需要什么内容，我会适当贴出来。

谢谢各位。

[ 本帖最后由 gsging 于 2005-12-28 15:37 编辑 ]

gsging

$ perl -v

This is perl, v5.8.6 built for i686-linux

gsging

是我描述的不清楚么？咋没人理我呢？

fayland

连 $loadclass 是什么 dispatch  方法弄出来看看。

gsging

原帖由 fayland 于 2005-12-29 09:53 发表
连 $loadclass 是什么 dispatch  方法弄出来看看。

能说说思路么？

fayland

你先看看运行后的 $loadclass 是什么模块
warn $loadclass;
然后看看那模块里的 dispatch 函数，贴出来看看。

明月千里寄相思

不太明白