TT does not save compiled on-fly templates to disk (only saves firs-
time compiled)
and second line - for help hacking via redefining functions for bases,
preprocessing,..
/usr/local/lib/perl5/site_perl/5.8.9/mach/Template]# diff -u
Provider.pm__o Provider.pm
--- Provider.pm__o 2010-08-20 19:33:04.000000000 +0400
+++ Provider.pm 2010-08-23 19:13:36.000000000 +0400
@@ -687,7 +687,7 @@
if $self->{ DEBUG };
($data, $error) = $self->_load($slot->[ NAME ], $slot->
[ DATA ]->{ name });
- ($data, $error) = $self->_compile($data)
+ ($data, $error) = $self->_compile($data, $self-
Show quoted text
>_compiled_filename($slot->[ NAME ]))
unless $error;
if ($error) {
@@ -965,7 +965,7 @@
local $/;
binmode(FH);
$data = <FH>;
- $mod_date = (stat($path))[9];
+ $mod_date = $self->_template_modified($path);
close(FH);
}
else {