如何在不重新启动的情况下调试 mod_perl2 模块？

Posted 2023-02-25

【中文标题】如何在不重新启动的情况下调试 mod_perl2 模块？

【英文标题】：How do you debug a mod_perl2 module without restarting?

【发布时间】：2010-10-07 01:09:12

【问题描述】：

环境：Apache/2.2.11 (Win32) mod_apreq2-20051231/2.6.2-dev mod_perl/2.0.4-dev Perl/v5.10.0

情况与this discussion list post 中描述的情况非常相似，除了在win32 上。

我在 httpd.conf 中有这个：

PerlModule Apache2::Reload
PerlInitHandler Apache2::Reload
PerlSetVar ReloadAll Off
PerlSetVar ReloadModules "MyPackage::*"

...以及只有 mod-perl 脚本处理。

我有一个使用 MyPackage 模块的脚本，它正在工作。

我破坏了模块，然后重新加载脚本。这个错误很有帮助，告诉我在哪里破坏了模块。

（如果此时我再次重新加载，它只会告诉我“未定义的子例程 &ModPerl::ROOT::ModPerl::Registry...”，因为它第一次无法加载文件。但要么方式仍然会发生以下行为。）

我恢复中断，并触摸脚本文件，以便重新加载模块并重新加载。现在它说：

Attempt to reload MyPackage/Foo.pm aborted.
Compilation failed in require at E:/dev/test.pl line 4.

即使我触摸了脚本和模块，我也无法正确地重新加载它，除非重新启动 Web 服务器。

仅破坏脚本本身（而不是模块）可以正常工作：适当的错误并将其改回会导致它在重新加载时再次工作。

在完成这些事情之后，我在测试之前重新启动了 Web 服务器：

我尝试过跟踪，但是 它继续出错的行 on 是 ModPerl/RegistryCooker.pm 行 204，这就是那一行 评估整个脚本。

我已尝试更改“使用警告” FATAL => 'all'" 只是“使用 警告”在脚本和 模块。没有什么不同。

我已尝试禁用自定义 $SIG__DIE__ 函数。没有 做出改变。 （嗯，只在 当然，出现错误的地方， 但产生的错误是 一样。）

根据一开始的讨论链接，发现MaxRequestsPerChild一直为0，我尝试了ThreadsPerChild 1，但没有区别。我尝试将 MaxRequestsPerChild 设置为 1，这解决了这个问题的奇怪行为，但在每次请求后都会重新启动 Web 服务器：

Child 7072: Process exiting because it reached MaxRequestsPerChild. Signaling the parent to restart a new child process.
Parent: Received restart signal -- Restarting the server.

这不是一个好的解决方案，因为我有大量代码在第一次点击页面时运行。

1234563 .) 甚至收到超时消息。通过任务管理器终止进程并验证我无法从 Web 浏览器访问该页面。从命令行启动 httpd -X。仍然与此问题顶部的行为相同。我还发现运行 httpd -? 时没有列出 -X 很奇怪。也许它在 win32 MPM 上不可用？

在该线程中，David 指出：

我的故障排除经验 这类问题表明其 很可能是 unloaded 删除了存储在 重新加载的模块的包空间 （可能设置在 BEGIN 块时间） 随后的要求没有 恢复。

但这不适用于我的代码。我介绍的“破坏脚本”错误只是在已经存在的行之上添加了一个额外的“我的 $var”行，这样第二个就会抱怨它已经被声明了。

在每次重新加载后不重新启动网络服务器（无论是通过 MaxRequestsPerChild 自动还是像以前一样手动），有没有办法在 mod_perl2 模块上工作？

【参考方案1】：

将 sub 复制到您从中调用它的脚本中，并将此代码放在副本之前：

package MyPackage::Foo;
no warnings 'redefine';

完成更改后，将 sub 移回实际模块。

【讨论】：

你必须在复制回来后重新启动（有时！）但在那之前它还是有帮助的。