perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Stas Bekman <s...@stason.org>
Subject Re: ACL filesystem incompatibility and potential race condition
Date Fri, 04 Mar 2005 02:10:35 GMT
Damon, please try the current svn [1], with all the fixes it should work 
now. The final version of read_script is:

sub read_script {
     my $self = shift;

     $self->debug("reading $self->{FILENAME}") if DEBUG & D_NOISE;
     $self->{CODE} = eval { $self->{REQ}->slurp_filename(0) }; # untainted
     if ($@) {
         $self->log_error("$@");

         if (ref $@ eq 'APR::Error') {
             return Apache::FORBIDDEN if $@ == APR::EACCES;
             return Apache::NOT_FOUND if $@ == APR::ENOENT
         }
         else {
             return Apache::SERVER_ERROR;
         }
     }

     return Apache::OK;
}

[1] 
http://perl.apache.org/download/source.html#Development_mod_perl_2_0_Source_Distribution

-- 
__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:stas@stason.org http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message