Re: Bareword "Apache2::Const::OK" not allowed

[prev] [thread] [next] [Date index for 2005/05/09]

Well, it complained about all uses of Apache2::Const
and APR::Const.

I replaced all such calls with calls().

After that, it complained about line 122 of
RegistryCooker:

sub init { 
    $_[0]->{REQ}      = $_[1]; 
    $_[0]->{URI}      = $_[1]->uri; 
^^^^^^^^^^^^^^^^ this line
    $_[0]->{FILENAME} = $_[1]->filename; 
} 

[Mon May 09 15:57:41 2005] [error] [client
64.94.157.1] Can't locate object method "uri" via
package "Apache::RequestRec" at
/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/ModPerl/RegistryCooker.pm
line 122.\n

any ideas?

--- Stas Bekman <stas@xxxxxx.xxx> wrote:

> 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:stas@xxxxxx.xxx http://use.perl.org
> http://apacheweek.com
> http://modperlbook.org http://apache.org  
> http://ticketmaster.com
> 


- Igor


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com