帮助解决一致可重复的 mod_perl2 / $SIG{__DIE__} 错误

Question

这是 Apache 2.2 上的 mod_perl2，win32 上的 ActiveState Perl 5.10。

我覆盖 $SIG{__DIE__} 并打开 DBI 的 RaiseError 标志，文档中的 AFAICT 应该在数据库调用失败时调用我的覆盖。似乎总是如此，除了一种情况，我不明白为什么。

我的脚本有一个 our $page 变量，并且是 mod_perl2，我可以从覆盖中获取它，如下所示：

use Carp::Trace;
my $full_trace = Carp::Trace::trace;
$full_trace =~ m/^(ModPerl::ROOT::ModPerl::Registry::.*::)handler .*$/m;
my $page;
if (defined $1)
{
    eval '$page = $' . $1 . 'page';
    if (defined $page)
    {
        $json = 1 if defined $$page{json_response};
        if (defined $$page{dbh})
        {
            my $errno = $$page{dbh}->state;
            if ($errno ~~ $$page{error_handling}{allowed})
            {
                # allowed to let it go--no report, expected possible user error at some level that couldn't be caught sooner (usually db level)
                my $errmsg = $$page{error_handling}{translation_map}{$errno};
                if (defined $errmsg)
                                    {
                                               ...

这工作正常。现在，在该 $page 中，我有一个“允许”错误值的数组引用，当它们从数据库返回时，我想对其执行不同的操作。当数据库抛出这些错误之一时，我想将其转换为用户友好的消息，即 JSON 格式的 $r->print 消息，并停止执行（行为 A）。由于某种原因，它会将控制权返回给脚本（行为 B）。

这是我的脚本的主要部分：

{
    $$page{error_handling}{allowed} = ['22007'];
    $$page{json_response}{result} = $page->one_liner("select 'aa'::timestamp");
    $$page{json_response}{test} = $$page{error_handling}{state};
}
    $page->make_json; # just JSONifies $$page{json_response} and prints it

如果我注释掉第一行，我会得到一个正常错误（处理意外的事情）（行为 C），这是我所期望的，因为我没有将发生的错误添加到列表中允许的错误数。真正奇怪的是，如果我剪切第一行并将其粘贴到我的 $SIG{__DIE__} 覆盖中，它就会起作用：JSON 响应被覆盖、打印，并且执行在 {test 之前停止} 被赋值（行为 A）。更奇怪的是，我可以将 {allowed} 设置为任何数字集，只要它特别包含“22007”，我就会得到行为 B。如果不包含，我就会得到行为 C。更奇怪的是，我实际上可以用任何内容填充我的覆盖（警告、调用 CORE::die 等 - 只要它编译）并且我仍然得到行为 B - 即使override 不再包含任何使其成为可能的代码！另外，我没有得到任何调用 warn 和 CORE::die 的预期结果，只是在日志中保持沉默，所以我什至无法尝试通过我的覆盖手动跟踪执行路径。

我在每个脚本保存之间重新启动了 Apache2.2。我什至将覆盖移动到与脚本本身相同的脚本文件中，从通常所在的模块中移出，并注释掉覆盖通常所在的整个模块文件，然后重新启动。

如果我取出第一行，或者从中取出“22007”，我可以警告和死亡，或者手动调试我喜欢的一切，一切都按预期工作。尽管服务器重置，“22007”却从未输出任何不同的内容，这是怎么回事？除了翻译映射之外，整个项目中的其他任何地方都没有引用“22007”，我可以从该文件中完全删除它并重新启动，结果没有什么不同。它的行为就好像它已经缓存了我当天早些时候的覆盖并且永远不会忘记。这也不是浏览器缓存问题，因为我可以添加随机查询字符串，结果没有什么不同。

这是我经历过的最奇怪、最令人沮丧的 mod_perl2 体验，我已经没有想法了。有人有任何提示吗？我唯一能想到的是这是一个缓存问题，但我已经无数次重启服务了。

因为那天已经结束了，我想我应该尝试完全重新启动服务器计算机，但它仍然没有改变任何东西。我什至在重新启动服务器之前，更改了 {state} 分配给此的唯一行：

$$page{error_handling}{state} = 'my face'; # $errno;

然而，之后的输出将 {test} 作为“22007”，只有当我完好无损地保留 = $errno 时，它才应该是这样。

即使它是反向代理来进行缓存，这种情况对我来说也没有意义，因为请求可能不同。服务器完全重新启动后，它如何仍然分配代码中不再存在的值，即，完全重新启动后，它如何使用我的旧 $SIG{__DIE__} 覆盖，当它不再存在于任何文件中？

更新：我还尝试将允许的错误更改为“42601”，并将数据库调用更改为“select”，这会产生该错误代码，但没有将其添加到翻译地图。它仍然给我行为 B，将 {state} 设置为“42601”，因此它并不特定于“22007”。放入 {allowed} 中的任何错误代码，如果该错误确实发生，则它正在运行旧版本的覆盖。导致 {allowed} 之外的错误，并且运行当前版本。但在进行覆盖之前，它如何知道当前错误是否在 {allowed} 中，或者是否意味着什么？ （因为覆盖是唯一可以对当前错误进行 grep 的地方。）

Answer 1

这是我的临时解决方法，但我想解决这个谜团，而不必在任何有允许错误的数据库调用的地方添加额外的行。

package MyModule::ErrorLogging;
sub InsanityWorkaround # duplicates part of $SIG{__DIE__} override for allowed errors
{
    my ($page) = @_;
    my $r = $page{r};
    my $errno = $page{error_handling}{state};
    if ($errno ~~ $page{error_handling}{allowed})
    {
        # allowed to let it go--no report, expected possible user error at some level that couldn't be caught sooner (usually db level)
        my $errmsg = $page{error_handling}{translation_map}{$errno};
        if (defined $errmsg)
        {
            use JSON::XS qw(encode_json);
            $page{json_response} =
            {
                error => $errmsg,
            };
            my $response = encode_json($page{json_response});
            $r->content_type("application/json");
            $r->print($response);
            exit(0);
        }
        else
        {
            return 0; # get back to script where {state} can be checked and output can be customized even further
        }
    }
    return;
}

然后我的脚本变成：

{
    $page{error_handling}{allowed} = ['22007']; # don't be bothered by invalid timestamp error
    $page{json_response}{result} = $page->one_liner("select 'aa'::timestamp");
    MyModule::ErrorLogging::InsanityWorkaround($page);
}

这是行为 A。