Strawberry Perl 和 mod_perl2 下出现奇怪的 Apache2::Cookie 错误

Question

我有一组在 ActivePerl 5.10 下运行的脚本。但是，在 Strawberry Perl 5.10 下，我收到一条奇怪的错误消息：

Can't locate object method "cookie_class" via package "MyCookie" (perhaps you forgot to load "MyCookie"?) at C:/strawberry/perl/site/lib/Apache2/Cookie.pm line 41.

然而，MyCookie 是 cookie 本身的名称，而不是任何 Perl 包的名称。

如果我注释掉 Cookie.pm 的第 41 行，脚本会运行，但我无法再成功获取或设置 cookie。

错误消息似乎有些正确，因为我也找不到 cookie_class（除了 POD 文件中提到的地方）。也就是说，我的 ActivePerl 安装也是如此。

我认为它在 C:\strawberry\perl\site\lib\auto\APR\Request\Request.dll 中——为什么在 Strawberry 下找不到它，但在 ActivePerl 下可以找到它？

Answer 1

更改您的代码以使用 2.X 方案，如下所示：

my $j = Apache2::Cookie::Jar->new($r);
my $cookie = $j->cookies("MyCookie"); # works!  go figure...

而不是旧方法：（

local our %cookies = Apache2::Cookie->fetch($r); # error was happening here
local our $cookie = $cookies{"MyCookie"};

出于某种原因，这似乎可以修复它。）

Answer 2

您是否可能在 Strawberry 和 ActivePerl 版本之间混合使用 apreq DLL？或者以某种方式混合 apreq-1 和 apreq-2 DLL？

有问题的 cookie_class 调用周围的区域就是这样：

my $jar = $req->jar or return;
$jar->cookie_class(__PACKAGE__);
return $jar->get(shift) if @_;

cookie_class 方法确实来自 Request.dll 和 $req 在调用 jar() 之前进行类型检查。

Answer 3

在某个地方，您或其他人正在将字符串传递给需要对象的函数。调试的最佳第一步是加载 Carp::Always 以便您可以获得回溯并找出到底发生了什么。