From: Simon Cozens <simon@simon-cozens.org>
Date: Sat, 24 Jan 2004 14:10:19 +0000 (+0000)
Subject: Silly bugs
X-Git-Tag: 2.10~355
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=bc6b985ccc8ac4bb7e5afa36dcfb1df9e5e47904;p=maypole.git

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 30e0f89..9cdc0df 100644
--- 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;