From: Aaron Trevena Date: Fri, 18 May 2007 19:32:03 +0000 (+0000) Subject: fix to View::TT X-Git-Tag: 2.12~9 X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=cfd4b58bb2ac71335a701fb6db2f1c062e27bf3e;p=maypole.git fix to View::TT git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@565 48953598-375a-da11-a14b-00016c27c3ee --- diff --git a/lib/Maypole/View/TT.pm b/lib/Maypole/View/TT.pm index 7d28440..3fbfbd6 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 = ; } our $VERSION = '2.12'; +my $debug_flags = DEBUG_ON; + use strict; sub template { @@ -17,7 +19,7 @@ sub template { unless ($self->{tt}) { my $view_options = $r->config->view_options || {}; if ($r->debug) { - $view_options->{DEBUG} = 0; + $view_options->{DEBUG} = $debug_flags; } $self->{provider} = Template::Provider->new($view_options); $self->{tt} = Template->new({