为什么在 fork 后使用 LibXML 时 Perl 会崩溃？

Question

我很难解决这个问题，但我在 Perl 中完成了一个 fork 之后，已将其范围缩小到使用 XML::LibXML。我在 Windows XP 和 XML::LibXML 1.70 上运行 Strawberry Perl 5.12.0。

我有一个脚本，我需要同时运行多个进程，获取 XML 输出并处理结果。如果我在 Solaris 机器上运行它，它运行得很好，我没有任何问题。但是，如果我在 Windows 上运行它，我会收到一个崩溃窗口，提示“perl.exe 遇到问题，需要关闭。”

这是一个会产生错误的示例程序：

use strict;
use warnings;
use XML::LibXML;
use Try::Tiny;

my $cmds = ['cmd1', 'cmd2'];
my @pids = ();
foreach my $cmd (@{$cmds}) {

    my $pid = fork();

    if ($pid) {

        # parent
        push (@pids, $pid);
    } elsif ($pid == 0) {

        XML::LibXML->load_xml(string=>'<root />'); # <-- this will crash it
        exit 0;
    }
}

foreach my $ch_pid (@pids) {

    try {

        waitpid($ch_pid, 0);
    } catch {

        carp("Error on waitpid: $!");
    };
}
exit 0;

如果我只有一个进程，或者我不分叉，那么它将成功运行。如果我删除 load_xml 调用（并且子项中没有任何内容），那么它将成功运行。

有谁知道这可能是什么原因以及如何解决它？

Answer 1

using XML::LibXML with threads时需要特别注意。其中一些（尤其是关于最初加载模块的）也与分叉有关。

您可以尝试删除编译时加载（use XML::LibXML; 行），然后在 fork 后加载模块：

} elsif ($pid == 0) {
    require XML::LibXML;
    XML::LibXML->load_xml(string=>'<root />');
    exit 0;
}