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:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
