3

我使用 Perl TK 和 Threads 编写了一个 GUI。在程序退出之前，一切都运行良好。这时我得到一个分段错误。我相信我正在尽我所能地管理我的线程，并且分段错误仅仅是由于 Perl 版本 5.8.8 中的线程。我知道这个版本很老了，但是因为工作不能更新。所以，我的问题是，我可以以某种方式简单地隐藏分段错误吗？或者，有没有一种万无一失的方法来彻底清理线程？由于问题的性质，我认为我的代码不相关，但这是我结束线程的方式：

my $thr = threads->create(\&worker);  ##this is created before any TK objects

sub worker {

 while($run){
  ##do thready-stuff here
 }

}

sub OnExit {
 $run=0;
 exit 0;
}

其中 $run 是一个共享变量， &OnExit 绑定到正在关闭的窗口。如果我删除 $run=0 ，我会收到一个关于退出程序并运行额外线程的错误，所以我很确定这会结束它。同样，我相信我的错误是由于版本限制，所以我只想隐藏它。谢谢！

4

2 回答 2

2

请参阅抑制/静音窗口崩溃消息框 并添加use Win32API::File(); Win32API::File::SetErrorMode(2);

于 2013-07-30T11:45:34.583 回答
-1

这是一个 PERL 问题，即使您 $thread->detach，并且线程正常退出，在 PERL/windows 版本的某些组合中仍然会出现此错误。

没什么好担心的，只是隐藏它。

于 2013-07-26T08:57:43.437 回答