Localise execeptions
Tomas Doran [Tue, 16 Feb 2010 22:37:01 +0000 (22:37 +0000)]
lib/Catalyst/View/TT.pm

index 1b561e2..0426b93 100644 (file)
@@ -168,6 +168,7 @@ sub new {
                                    @{ $p->{copy_config} };
                     }
                 }
+                local $@;
                 eval "require $prov";
                 if(!$@) {
                     push @providers, "$prov"->new($p->{args});
@@ -207,6 +208,7 @@ sub process {
         return 0;
     }
 
+    local $@;
     my $output = eval { $self->render($c, $template) };
     if (my $err = $@) {
         my $error = qq/Couldn't render template "$template"/;