X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FView%2FTT.pm;h=c966a7df262bbefe9e96a3114b50e0514f26a4e9;hb=fc53e2df4c3f802efe2a61a1b2af1bdeb80fdbdd;hp=7d28440137df92a93821074f2082ddd0d4b6b4d4;hpb=1ec67be9e8b738cbd2a523523af3bd7e61f98480;p=maypole.git

diff --git a/lib/Maypole/View/TT.pm b/lib/Maypole/View/TT.pm
index 7d28440..c966a7d 100644
--- a/lib/Maypole/View/TT.pm
+++ b/lib/Maypole/View/TT.pm
@@ -3,13 +3,15 @@ use base 'Maypole::View::Base';
 use Maypole::Constants;
 use Template;
 use File::Spec::Functions qw(catdir tmpdir);
-use Data::Dumper;
+use Template::Constants qw( :all );
 
 our $error_template;
 { local $/; $error_template = <DATA>; }
 
 our $VERSION = '2.12';
 
+my $debug_flags = DEBUG_ON;
+
 use strict;
 
 sub template {
@@ -17,8 +19,10 @@ sub template {
   unless ($self->{tt}) {
     my $view_options = $r->config->view_options || {};
     if ($r->debug) {
-      $view_options->{DEBUG} = 0;
+      $view_options->{DEBUG} = $debug_flags;
     }
+
+    $view_options->{POST_CHOMP} = 1 unless (exists $view_options->{POST_CHOMP});
     $self->{provider} = Template::Provider->new($view_options);
     $self->{tt}       = Template->new({
 				       %$view_options,
@@ -60,7 +64,7 @@ sub report_error {
     # Need to be very careful here.
     my $tt = Template->new;
     unless (ref $r->{config}) {
-      warn "no config for this request\n";
+      $r->warn("no config for this request");
       $error .= '<br> There was a problem finding configuration for this request';
       $r->{config} ||= {};
     }