Re: [mp2] $ENV{MOD_PERL}

[Charlie Smith]

Thanks Perrin.   I tried putting the prefork directive in but still got the same
kind of error in the log file but this time it can't find the
ModPerl/RegistryPrefork.pm
[Mon Mar 15 09:28:40 2004] [error] failed to resolve handler
`ModPerl::RegistryPrefork'
[Mon Mar 15 09:28:40 2004] [error] [client 10.11.5.84] Can't locate
ModPerl/RegistryPrefork.pm in @INC (@INC contains:
/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/Apache2
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/Apache2
/usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0
/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .
/opt/ApacheDev2/src/httpd-2.0.48/src/
/opt/ApacheDev2/src/httpd-2.0.48/src/lib/perl) at (eval 5) line 3.

I tried getting this module - ModPerl::RegistryPrefork - from CPAN with not
luck.  It's not in the CPAN modules list yet. ;(

So I copied the stuff  to create the package from the URL you listed.  That
appears to have done the trick.  Thanks very much  ;).

Reference:
#file:ModPerl/RegistryPrefork.pm
  #-------------------------------
  package ModPerl::RegistryPrefork;
  
  use strict;
  use warnings FATAL => 'all';
  
  our $VERSION = '0.01';
  
  use base qw(ModPerl::Registry);
  
  use File::Basename ();
  
  sub handler : method {
      my $class = (@_ >= 2) ? shift : __PACKAGE__;
      my $r = shift;
      return $class->new($r)->default_handler();
  }
  
  sub chdir_file {
      my $file = @_ == 2 ? $_[1] : $_[0]->{FILENAME};
      my $dir = File::Basename::dirname($file);
      chdir $dir or die "Can't chdir to $dir: $!";
  }
  
  1;


Side note:
These directives appear to work under the Directory tag,  the Location tag, or
under the <Files "*"> embeded Directory tag.  ;))

    SetHandler perl-script
     PerlResponseHandler ModPerl::RegistryPrefork
     Options +ExecCGI
     PerlOptions +ParseHeaders





>>> "Perrin Harkins" <[EMAIL PROTECTED]> 3/13/2004 5:03:58 PM >>>
Charlie Smith wrote:
> Trying to include a file with the require statement in the t/My/Bug.pm file
> did not work.  I was hoping to show how changing path from absolute to 
> relative
> causes problem with require statement under MP2.

Sounds like you need this:
http://perl.apache.org/docs/2.0/user/porting/compat.html#C_Apache__Registry___C_Apache__PerlRun__and_Friends


- Perrin


-- 
Report problems: http://perl.apache.org/bugs/ 
Mail list info: http://perl.apache.org/maillist/modperl.html 
List etiquette: http://perl.apache.org/maillist/email-etiquette.html 




-- 
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html