[Catalyst-commits] r14557 - in Catalyst-View-Mason/trunk: . lib/Catalyst/View t/lib/TestApp/Controller

jnapiorkowski at dev.catalyst.perl.org jnapiorkowski at dev.catalyst.perl.org
Mon Dec 29 21:30:12 GMT 2014


Author: jnapiorkowski
Date: 2014-12-29 21:30:12 +0000 (Mon, 29 Dec 2014)
New Revision: 14557

Modified:
   Catalyst-View-Mason/trunk/Changes
   Catalyst-View-Mason/trunk/lib/Catalyst/View/Mason.pm
   Catalyst-View-Mason/trunk/t/lib/TestApp/Controller/Root.pm
Log:
not sure how this stuff ever worked...

Modified: Catalyst-View-Mason/trunk/Changes
===================================================================
--- Catalyst-View-Mason/trunk/Changes	2014-12-29 21:30:03 UTC (rev 14556)
+++ Catalyst-View-Mason/trunk/Changes	2014-12-29 21:30:12 UTC (rev 14557)
@@ -1,5 +1,9 @@
 Revision history for Perl extension Catalyst::View::Mason.
 
+0.19    Mon, 29 Dec 2014 16:00 Central Time (USA)
+        - Minor changes to the test suite so that code compiles and runs
+          on modern Catalyst.  No other guarantees.
+
 0.18    Sat, 22 Aug 2009 21:17:52 +0200
          - Make it work with Catalyst::Runtime 5.80010.
          - Fix warnings in the test suite.

Modified: Catalyst-View-Mason/trunk/lib/Catalyst/View/Mason.pm
===================================================================
--- Catalyst-View-Mason/trunk/lib/Catalyst/View/Mason.pm	2014-12-29 21:30:03 UTC (rev 14556)
+++ Catalyst-View-Mason/trunk/lib/Catalyst/View/Mason.pm	2014-12-29 21:30:12 UTC (rev 14557)
@@ -8,7 +8,7 @@
 use HTML::Mason;
 use MRO::Compat;
 
-our $VERSION = '0.18';
+our $VERSION = '0.19';
 
 __PACKAGE__->mk_accessors('template');
 

Modified: Catalyst-View-Mason/trunk/t/lib/TestApp/Controller/Root.pm
===================================================================
--- Catalyst-View-Mason/trunk/t/lib/TestApp/Controller/Root.pm	2014-12-29 21:30:03 UTC (rev 14556)
+++ Catalyst-View-Mason/trunk/t/lib/TestApp/Controller/Root.pm	2014-12-29 21:30:12 UTC (rev 14557)
@@ -38,14 +38,14 @@
 sub render : Local {
     my ($self, $c) = @_;
 
-    my $out = $self->view->render(
+    my $out = $c->view->render(
             $c, $c->request->param('template'),
             { param => $c->req->param('param') || '' },
     );
 
     $c->response->body($out);
 
-    if (blessed($out) && $out->isa('HTML::Mason::Exception')) {
+    if (ref($out) && $out->isa('HTML::Mason::Exception')) {
         $c->response->status(403);
     }
 }




More information about the Catalyst-commits mailing list