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

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

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