fix to TT.pm

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@367 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/lib/Maypole/View/TT.pm b/lib/Maypole/View/TT.pm
index 13130e53ec1154c6ecfe1c44019db12582265096..45fd5e428c8e8b4a3ea8b4b90b6014df6b1c56df 100644 (file)
--- a/lib/Maypole/View/TT.pm
+++ b/lib/Maypole/View/TT.pm
@@ -31,7 +31,7 @@ sub template {
         return OK;
     }
     else {
-        $r->{error} = $self->{tt}->error;
+       $r->{error} = "TT error for template '$template_file'\n" . $self->{tt}->error;
         return ERROR;
     }
 }