Question

我在Apache hhtpd中有几个在mod_perl下运行的SOAP :: Lite客户端。其中一些使用1.1肥皂服务器，其中一些使用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本地化为serverthread或类似的东西，我想事情会没事的。但任何解决方案都将受到赞赏。

Answer 1

使用prefork模型而不是线程模型（mpm_prefork_module而不是mpm_event_module或mpm_worker_module）运行Apache，以便每个Apache子项都有自己的Perl解释器，因此它自己的一组常数。

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

SOAP :: Lite - 在mod_perl

1 个答案: