From cfd4b58bb2ac71335a701fb6db2f1c062e27bf3e Mon Sep 17 00:00:00 2001
From: Aaron Trevena <aaron.trevena@gmail.com>
Date: Fri, 18 May 2007 19:32:03 +0000
Subject: [PATCH] fix to View::TT

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@565 48953598-375a-da11-a14b-00016c27c3ee
---
 lib/Maypole/View/TT.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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 = <DATA>; }
 
 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({
-- 
2.39.5