Stas Bekman wrote:
Philippe M. Chiasson wrote:
Index: lib/Apache/compat.pm =================================================================== RCS file: /home/cvs/modperl-2.0/lib/Apache/compat.pm,v retrieving revision 1.114 diff -u -I$Id -r1.114 compat.pm --- lib/Apache/compat.pm 24 Jul 2004 07:27:03 -0000 1.114 +++ lib/Apache/compat.pm 9 Aug 2004 21:10:04 -0000 @@ -249,8 +249,13 @@ package Apache;
sub server_root_relative {
- my $class = shift;
- File::Spec->catfile(Apache::ServerUtil::server_root, @_);
+ my ($class, $path, @extra) = @_;
+ if (defined($path) && File::Spec->file_name_is_absolute($path)) {
+ return File::Spec->catfile($path, @extra); + }
+ else {
+ File::Spec->catfile(Apache::ServerUtil::server_root, $path, @extra);
+ }
}
How about:
sub server_root_relative { my $class = shift; if (@_ && defined($_[0]) && File::Spec->file_name_is_absolute($_[0])) { return File::Spec->catfile(@_); } else { File::Spec->catfile(Apache::ServerUtil::server_root, @_); } }
Works for me ;-)
Shall I check it in =;l-?
-- -------------------------------------------------------------------------------- Philippe M. Chiasson m/gozer\@(apache|cpan|ectoplasm)\.org/ GPG KeyID : 88C3A5A5 http://gozer.ectoplasm.org/ F9BF E0C2 480E 7680 1AE5 3631 CB32 A107 88C3A5A5
signature.asc
Description: OpenPGP digital signature
