X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lib%2FCGI%2FMaypole.pm;h=67cbf92f1c08e34325e1c767b5ffb845393632ff;hb=83e1c35229307f73d613c7e8b473abf41ba9b76a;hp=e112913c0d5b5f55d214892868ad36b191ad4983;hpb=ab11625025348dd2f0b4324413463358f52aede3;p=maypole.git

diff --git a/lib/CGI/Maypole.pm b/lib/CGI/Maypole.pm
index e112913..67cbf92 100644
--- a/lib/CGI/Maypole.pm
+++ b/lib/CGI/Maypole.pm
@@ -40,6 +40,7 @@ sub send_output {
     my $r = shift;
     print $r->{cgi}->header(
         -type           => $r->{content_type},
+        -charset        => $r->{document_encoding},
         -content_length => length $r->{output},
     );
     print $r->{output};
@@ -61,8 +62,8 @@ CGI::Maypole - CGI-based front-end to Maypole
      package BeerDB;
      use base 'CGI::Maypole;
      BeerDB->setup("dbi:mysql:beerdb");
-     BeerDB->config->{uri_base} = "http://your.site/cgi-bin/beer.cgi/";
-     BeerDB->config->{display_tables} = [qw[beer brewery pub style]];
+     BeerDB->config->uri_base("http://your.site/cgi-bin/beer.cgi/");
+     BeerDB->config->display_tables([qw[beer brewery pub style]]);
      # Now set up your database:
      # has-a relationships
      # untaint columns