Author: randyk Date: Fri May 6 23:50:16 2005 New Revision: 169054 URL: http://svn.apache.org/viewcvs?rev=169054&view=rev Log: fix examples to handle case where APR::Status::is_E* is not true.
Modified: perl/modperl/docs/trunk/src/docs/2.0/api/APR/Status.pod Modified: perl/modperl/docs/trunk/src/docs/2.0/api/APR/Status.pod URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/api/APR/Status.pod?rev=169054&r1=169053&r2=169054&view=diff ============================================================================== --- perl/modperl/docs/trunk/src/docs/2.0/api/APR/Status.pod (original) +++ perl/modperl/docs/trunk/src/docs/2.0/api/APR/Status.pod Fri May 6 23:50:16 2005 @@ -124,13 +124,10 @@ eval { $obj->slurp_filename(0) }; if ($@) { - if (ref $@ eq 'APR::Error') { - return Apache2::Const::FORBIDDEN if APR::Status::is_EACCES($@); - } - else { - return Apache2::Const::SERVER_ERROR; - } - } + return Apache2::Const::FORBIDDEN + if ref $@ eq 'APR::Error' && APR::Status::is_EACCES($@); + die $@; + } As discussed above with C<APR::Const::EAGAIN>, the advantage of using C<is_EACCES> is portability - just checking @@ -164,12 +161,9 @@ eval { $obj->slurp_filename(0) }; if ($@) { - if (ref $@ eq 'APR::Error') { - return Apache2::Const::NOT_FOUND if APR::Status::is_ENOENT($@); - } - else { - return Apache2::Const::SERVER_ERROR; - } + return Apache2::Const::NOT_FOUND + if ref $@ eq 'APR::Error' && APR::Status::is_ENOENT($@); + die $@; } --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]