use Template;
use File::Spec::Functions qw(catdir tmpdir);
-our $error_template;
+our $error_template;
{ local $/; $error_template = <DATA>; }
our $VERSION = '2.11';
return OK;
} else {
if ($@) {
- warn "fatal error in template '$template_file' : $@\n";
- $r->{error} = "fatal error in template '$template_file' : $@";
+ my $error = "fatal error in template '$template_file' : $@\nTT paths : " . join(', ',$self->paths($r)) . "\n";
+ $r->warn($error);
+ $r->{error} = $error;
} else {
- warn "TT error for template '$template_file'\n" . $self->{tt}->error;
- $r->{error} = "TT error for template '$template_file'\n" . $self->{tt}->error;
+ my $error = "TT error for template '$template_file'\n" . $self->{tt}->error . "\nTT paths : " . join(', ',$self->paths($r)) . "\n";
+ $r->warn($error);
+ $r->{error} = $error;
}
return ERROR;
}