added sensible defaults to template so less whitespace waste

[maypole.git] / lib / Maypole / View / TT.pm

diff --git a/lib/Maypole/View/TT.pm b/lib/Maypole/View/TT.pm
index 3fbfbd6c66e4271f2e8b15aeff214dcac4e7b7a8..8759e0cba9206754a24783b7b82de80cb0e1d8f9 100644 (file)
--- a/lib/Maypole/View/TT.pm
+++ b/lib/Maypole/View/TT.pm
@@ -8,7 +8,7 @@ use Template::Constants qw( :all );
 our $error_template;
 { local $/; $error_template = <DATA>; }
 
-our $VERSION = '2.12';
+our $VERSION = '2.13';
 
 my $debug_flags = DEBUG_ON;
 
@@ -17,10 +17,12 @@ use strict;
 sub template {
   my ( $self, $r ) = @_;
   unless ($self->{tt}) {
-    my $view_options = $r->config->view_options || {};
+    my $view_options = $r->config->view_options || { POST_CHOMP=>1, PRE_CHOMP=>1, TRIM=>1 };
     if ($r->debug) {
       $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,
@@ -62,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} ||= {};
     }