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

Question

环境: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.

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

只破坏脚本本身(而不是模块)工作正常:适当的错误并将其改回导致它在重新加载时再次工作。

在完成这些操作后，我在测试前重新启动了网络服务器:

1. 我试过追踪，但是它继续出错的行on 是 ModPerl/RegistryCooker.pm 行204，这就是那一行eval{} 是整个脚本。

2. 我试过更改“使用警告FATAL => 'all'"只是 "使用脚本中的警告”和模块。没有什么不同。

3. 我试过禁用我的自定义$SIG{__DIE__} 函数。没有做出改变。 (好吧，只有在出现错误的地方，当然，但产生的错误是一样。)

4. 根据开头的讨论链接，发现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.
   

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

5. 另外，根据讨论，我将 httpd 作为服务运行，因此我在服务参数窗口中添加了 -X 并点击开始，它仍在尝试在整整三分钟后启动(通常在 3 秒内启动) .) 甚至收到超时消息。通过任务管理器终止进程并验证我无法从网络浏览器访问该页面。从命令行启动 httpd -X。仍然与此问题顶部的行为相同。我还发现运行 httpd -? 时未列出 -X 很奇怪。也许它在 win32 MPM 上不可用？

6. 在该线程中，David 指出:

   My experience troubleshooting this kind of issue has indicated that its likely that the package that was unloaded deleted a value stored in the package space of the module reloaded (probably set at BEGIN block time) that the subsequent require did not restore.

   但我的代码并非如此。我介绍的“破坏脚本”错误只是在一个已经存在的行之上添加一个额外的“my $var”行，这样第二个就会提示它已经被声明了。

有没有办法在每次重新加载后不重新启动 Web 服务器的情况下处理 mod_perl2 模块(无论是通过 MaxRequestsPerChild 自动启动，还是像以前一样手动启动)？

Answer 1

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

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

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