Re: Apache 2 + mod_perl + virtual host problems

[prev] [thread] [next] [Date index for 2005/02/22]

Bruno Lavoie wrote:
> OK, 
> 
> i'm not a mod_perl hacker, but i've installed a Apache2 + mod_perl2
> under a FreeBSD VMWare to test, i used the same mod_perl2
> configuration...... same script!  I copy paste this config in the
> global server config or default vhost:
> 
> #
> ####
> PerlModule ModPerl::PerlRun
> Alias /perl-run/ /usr/local/www/perl/
> <Location /perl-run>
>     SetHandler perl-script
>     PerlResponseHandler ModPerl::PerlRun
>     PerlOptions +ParseHeaders
>     Options +ExecCGI
> </Location>
> 
> as you can see, it's very basic! It works on FreeBSD not under Debian
> Sarge.... the same error,
> 
> [Mon Feb 21 21:27:41 2005] [error] /usr/local/www/perl/test.pl not
> found or unable to stat
> 
> and when i do a 'cat /usr/local/www/perl/test.pl' the file exists,
> executable, etc...... everything is OK, if it runs under
> Registry.......
> 
> but check out my different HEAD output
> 
> FreeBSD : 
> Server: Apache/2.0.53 (FreeBSD) mod_perl/1.999.20 Perl/v5.8.6
> 
> Debian:
> Server: Apache/2.0.52 (Debian GNU/Linux) mod_perl/1.999.20 Perl/v5.8.4
> 
> Can the perl version change anything? can the apache version change anything?
> I can post all my debian apache 2 config files......... if it's necessary

it's hard to tell, I prefer debugging:

> or with you Stas, i can jump into debuging like the way you talked in
> the last post...

Actually it's easier that that. the error comes from RegistryCooker.pm:

sub can_compile {
     my $self = shift;
     my $r = $self->{REQ};

     unless (-r $r->my_finfo && -s _) {
         $self->log_error("$self->{FILENAME} not found or unable to stat");
         return Apache::NOT_FOUND;
     }

and my_finfo later on:

# XXX: should go away when finfo() is ported to 2.0 (don't want to
# depend on compat.pm)
sub Apache::RequestRec::my_finfo {
     my $r = shift;
     stat $r->filename;
     \*_;
}

so what do you get in error log if you dump this:

   warn "filename: ". $r->filename . "\n";

        -- 
        __________________________________________________________________
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