multithreading - SOAP::Lite - 使用 1.1 和 1.2 版的客户端在 mod_perl 中线程化

Question

我有几个 SOAP::Lite 客户端在 Apache hhtpd 的 mod_perl 下运行。其中一些使用 1.1 soap-servers，一些使用 1.2 服务器。所以我有这样的代码:

# In client 1:
my $soap1 = SOAP::Lite->soapversion("1.1");
$result1 = $soap1->method1();

# In client 2:
my $soap2 = SOAP::Lite->soapversion("1.2");
$result2 = $soap2->method2();

这在独立客户端中有效，但是当我在 mod_perl 下运行代码时，我似乎被 soapversion 刺痛了 方法有副作用:

# From SOAP::Lite.pm 
sub soapversion {
    my $self = shift;
    my $version = shift or return $SOAP::Constants::SOAP_VERSION;

    ($version) = grep {
        $SOAP::Constants::SOAP_VERSIONS{$_}->{NS_ENV} eq $version
        } keys %SOAP::Constants::SOAP_VERSIONS
            unless exists $SOAP::Constants::SOAP_VERSIONS{$version};

    die qq!$SOAP::Constants::WRONG_VERSION Supported versions:\n@{[
        join "\n", map {"  $_ ($SOAP::Constants::SOAP_VERSIONS{$_}->{NS_ENV})"} keys %SOAP::Constants::SOAP_VERSIONS
        ]}\n!
        unless defined($version) && defined(my $def = $SOAP::Constants::SOAP_VERSIONS{$version});

    foreach (keys %$def) {
        eval "\$SOAP::Constants::$_ = '$SOAP::Constants::SOAP_VERSIONS{$version}->{$_}'";
    }

    $SOAP::Constants::SOAP_VERSION = $version;

    return $self;
}

这就是我认为会发生的事情:

基本上，soapversion 调用重新定义了 $SOAP::Constants 中的基本常量。由于这是 mod_perl，$SOAP::Constants 是全局的并且在每个服务器线程之间共享(我相信。如果我错了请纠正我)。这会导致竞争条件:大多数时候，代码行或多或少会按照上面看到的顺序执行。但是偶尔(实际上是大约 2% 的调用)执行顺序是:

Thread1: my $soap1 = SOAP::Lite->soapversion("1.1");
Thread2: my $soap2 = SOAP::Lite->soapversion("1.2");
Thread1: $result1 = $soap1->method1();
Thread2: $result2 = $soap2->method2();

因此，调用 $soap1->method1() 时将 $SOAP::Constants 设置为适合版本 1.2 - 导致多个命名空间错误，特别是:

xmlns:soapenc="http://www.w3.org/2003/05/soap-encoding" 

对于 1.1，哪个是错误的 - 谁更喜欢:

xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"                                                 

如果我能以某种方式使 $SOAP::Constants 本地化到服务器线程或类似的东西，我想一切都会好起来的。但任何解决方案都将不胜感激。

Answer 1

使用 prefork 模型而不是线程模型(mpm_prefork_module 而不是 mpm_event_module 或 mpm_worker_module)运行 Apache，这样每个 Apache 子节点都会有自己的 Perl 解释器，因此有自己的常量集。

否则请查看有关 PerlOptions 指令的 modperl 文档，特别是 clone 和/或 parent 值。但是停止使用线程对我来说似乎更简单，线程和 Perl 从来都不是 friend 。