From bc6b985ccc8ac4bb7e5afa36dcfb1df9e5e47904 Mon Sep 17 00:00:00 2001 From: Simon Cozens Date: Sat, 24 Jan 2004 14:10:19 +0000 Subject: [PATCH] Silly bugs git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@7 48953598-375a-da11-a14b-00016c27c3ee --- lib/Apache/MVC/View/TT.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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; -- 2.39.5