POE里请不要用Tk 内存泄露 memory leak

isaachs

内存不断泄露，如黄河之水一发不可收拾~
aspn里有关于这个的信息，但是是04年的，而且也没有解决办法。
不信的可运行《POE Cookbook》中的例子，地址如下：
http://poe.perl.org/?POE_Cookbook/Tk_Interfaces
玩死你~

[ 本帖最后由 flw 于 2009-3-7 19:08 编辑 ]

flw

呵呵，我今天测试了一下，果然是有这个问题的，
不过后来换了个新版本的 Tk，发现已经解决了。

我的测试环境：
Windows XP SP3
ActivePerl 5.8.8 817
POE 1.0286

测试 Tk804.027 时，是有很严重的内存泄露的（大约是两分钟 300 兆），
不过我把 Tk804.027 卸载了，用 ppm 安装了一个新的，
版本是 Tk804.028，就好了。运行了十多分钟，没看到有持续的泄露。

BTW：有些人反应在他的机器上运行该例子程序会导致 CPU 100% 出不来 Tk 界面，
可以把

1. sub ui_count {
   
2.     $_[HEAP]->{counter}++;
   
3.     $_[KERNEL]->yield("ev_count");
   
4. }

复制代码

改成

1. sub ui_count {
   
2.     $_[HEAP]->{counter}++;
   
3.     $_[KERNEL]->delay("ev_count", 0.1);
   
4. }

复制代码

这样就可以了。
当然了，内存泄露的速度也会降下来。

[ 本帖最后由 flw 于 2009-3-7 19:06 编辑 ]