This patch allows for INCLUDE_PATH with relative ".." segments.
replace 'hack' with something else if you want :) but it's still a hack.
even if it works.
--- /usr/lib/perl5/site_perl/5.6.1/Template/Provider.pm Fri Apr 6
19:04:58 2001+++ Provider.pm Fri Jun 15 20:41:27 2001
@@ -289,6 +289,17 @@
# create COMPILE_DIR and sub-directories representing each
INCLUDE_PATH
# element in which to store compiled files
if ($cdir) {
+
+ # this is a hack to solve the problem with INCLUDE_PATH using
+ # relative dirs
+ my $segments = 0;
+ for (@$path) {
+ my $c = 0;
+ $c++ while m|\.\.|g;
+ $segments = $c if $c > $segments;
+ }
+ $cdir .= "/".join "/",('hack') x $segments if $segments;
+
require File::Path;
foreach my $dir (@$path) {
my $wdir = $dir;
_____________________________________________________________________
Stas Bekman JAm_pH -- Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide http://perl.apache.org/guide
mailto:[EMAIL PROTECTED] http://apachetoday.com http://eXtropia.com/
http://singlesheaven.com http://perl.apache.org http://perlmonth.com/
