Igor Chudov wrote:
I have just installed new Apache 2.0.54 and mod_perl
(the latest). When running it, load of a webpage
results in
"Apache2::Const::OK" not allowed:
[Mon May 09 15:07:13 2005] [error] [client
64.94.157.1] failed to resolve handler
`ModPerl::PerlRun': Bareword "Apache2::Const::OK" not
allowed while "strict subs" in use at
/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/ModPerl/RegistryCooker.pm
line 171.\nBEGIN not safe after errors--compilation
aborted at
/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/ModPerl/RegistryCooker.pm
line 201.\nCompilation failed in require at (eval 4)
line 3.\n\t...propagated at
/usr/lib/perl5/5.8.5/base.pm line 85.\nBEGIN
failed--compilation aborted at
/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/ModPerl/PerlRun.pm
line 25.\nCompilation failed in require at (eval 3)
line 3.\n, referer:
http://dsl.algebra.com/algebra/homework/coordinate/Linear_Equations.faq.hide_answers.1.html
Strange, any difference with this patch?
Index: ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
===================================================================
--- ModPerl-Registry/lib/ModPerl/RegistryCooker.pm (revision 169356)
+++ ModPerl-Registry/lib/ModPerl/RegistryCooker.pm (working copy)
@@ -168,7 +168,7 @@
my $old_status = $self->{REQ}->status;
my $rc = $self->run;
my $new_status = $self->{REQ}->status($old_status);
- return ($rc == Apache2::Const::OK && $old_status != $new_status)
+ return ($rc == Apache2::Const::OK() && $old_status != $new_status)
? $new_status
: $rc;
}
--
__________________________________________________________________
Stas Bekman JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide ---> http://perl.apache.org
mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org http://ticketmaster.com
