warn only with debug on.

set encoding & charset before processing view
get encoding from application in header.

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

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index d0ba118a5863609d80187bf08c3e521653d65c84..cce6cd7d745aa64847af277d0ce3cbdb8f574064 100644 (file)
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -1,5 +1,5 @@
 package Maypole;
-use base qw(Class::Accessor::FAST Class::Data::Inheritable);
+use base qw(Class::Accessor::Fast Class::Data::Inheritable);
 use attributes ();
 use UNIVERSAL::require;
 use strict;
@@ -111,7 +111,7 @@ sub handler_guts {
         if ( my $error = $@ ) {
             $status = $r->call_exception($error);
             if ( $status != OK ) {
-                warn "caught view error: $error";
+                warn "caught view error: $error" if $r->debug;
                 return $r->debug ? $r->view_object->error( $r, $error ) : ERROR;
             }
         }

diff --git a/lib/Maypole/View/Base.pm b/lib/Maypole/View/Base.pm
index fdc66298adf38c5db34cb02258197ff5a2e441dd..b577364ada5c80511ecb8e7bda4a3b6ca47de072 100644 (file)
--- a/lib/Maypole/View/Base.pm
+++ b/lib/Maypole/View/Base.pm
@@ -61,10 +61,10 @@ sub vars {
 
 sub process {
     my ( $self, $r ) = @_;
-    my $status = $self->template($r);
-    return $self->error($r) if $status != OK;
     $r->{content_type}      ||= "text/html";
     $r->{document_encoding} ||= "utf-8";
+    my $status = $self->template($r);
+    return $self->error($r) if $status != OK;
     return OK;
 }
 

diff --git a/templates/factory/header b/templates/factory/header
index 8712c85b096ac5a00d583f0e43d144a9897db52c..148cc942e0ac2d913b46e681d76de933210ad40c 100644 (file)
--- a/templates/factory/header
+++ b/templates/factory/header
@@ -8,7 +8,9 @@
                 "A poorly configured Maypole application"
             %]
         </title>
-        <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
+        <meta http-equiv="Content-Type" content="text/html; charset=[% 
+           request.document_encoding
+       %]"/>
         <link title="Maypole" href="/maypole.css" type="text/css"
             rel="stylesheet"/>
    </head>