Strange Apache2 :: Cookie erreur sous Strawberry Perl et mod_perl2

Question

J'ai un ensemble de scripts qui fonctionnent sous ActivePerl 5.10. Toutefois, en vertu Strawberry Perl 5.10, je reçois un message d'erreur étrange:

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. 

Cependant, MyCookie est le nom du cookie lui-même, pas de package Perl.

Si je commente la ligne 41 de Cookie.pm, le script s'exécute, mais je ne parviens plus à obtenir ou à configurer des cookies.

Le message d'erreur semble quelque peu correct car je ne trouve pas cookie_class non plus (sauf si cela est mentionné dans les fichiers POD.) Cela étant dit, il en est de même pour mon installation ActivePerl.

Je pense que c'est dans C:\strawberry\perl\site\lib\auto\APR\Request\Request.dll - comment venir, il ne peut pas le trouver sous Strawberry, mais peut sous ActivePerl?

Answer 1

Changer votre code pour utiliser le schéma 2.X comme ceci:

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

plutôt que l'ancienne méthode: (. Pour une raison quelconque, cela semblait le fixer)

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

Answer 2

Quelque part, vous ou quelqu'un d'autre transmet une chaîne à une fonction qui attend un objet. Votre meilleure première étape dans le débogage serait de charger Carp::Always de sorte que vous puissiez obtenir un backtrace et découvrir ce qui se passe réellement.

Answer 3

Êtes-vous en train de mélanger les DLL apreq entre les versions Strawberry et ActivePerl? Ou mélangez les DLLs apreq-1 et apreq-2 d'une façon ou d'une autre?

La zone autour de l'infraction cookie_class appel est ceci:

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

La méthode cookie_class ne vient de Request.dll et $req est vérifié avant jar() type sur la est appelée.