Fixed documentation bug.

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

diff --git a/lib/Maypole/View/Base.pm b/lib/Maypole/View/Base.pm
index 668b2c4430fa4b061d0343cf237dfd203a45ae2f..51c2cb6dcbc3601d9567d4b725db06017c73ce4d 100644 (file)
--- a/lib/Maypole/View/Base.pm
+++ b/lib/Maypole/View/Base.pm
@@ -60,6 +60,7 @@ sub process {
     my $status = $self->template($r);
     return $self->error($r) if $status != OK;
     $r->{content_type} ||= "text/html";
+    $r->{document_encoding} ||= "utf-8";
     return OK;
 }