Silly bugs

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

diff --git a/lib/Apache/MVC/View/TT.pm b/lib/Apache/MVC/View/TT.pm
index 30e0f89030ca2e606654e9a376d1ff123e24e55e..9cdc0dfef450b147b4fadaa276e76379ff880230 100644 (file)
--- a/lib/Apache/MVC/View/TT.pm
+++ b/lib/Apache/MVC/View/TT.pm
@@ -38,9 +38,9 @@ sub _args {
 
 sub process {
     my ($self, $r) = @_;
-    my $template = $self->_tt($r):
+    my $template = $self->_tt($r);
     my $output;
-    $template->process($r->template, { $self->_args($r) }, \$output);
+    $template->process($r->template, { $self->_args($r) }, \$output)
     || $self->error($r, $template->error);
     $r->{ar}->content_type("text/html");
     $r->{ar}->headers_out->set("Content-Length" => length $output);
@@ -51,7 +51,7 @@ sub process {
 
 sub error {
     my ($self, $r, $error) = @_;
-    $r->{ar}_>content_type("text/plain");
+    $r->{ar}->content_type("text/plain");
     $r->send_http_header;
     $r->print($error);
     return 500;