Stas Bekman wrote:
[...]
Moreover we do this silly (but necessary) protection and copy the whole
string into a perl sv, scared that someone will use a short-lived pool
object when allocating this variable (was my idea).

I say, let's drop that glue and write it in pure perl:

use File::Spec qw(catfile);
sub Apache::Server::server_root_relative {
   return catfile Apache::server_root, @_;


OK. That won't work for vhosts with a different server_root from the main server. So scratch that idea.


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



Reply via email to