[Catalyst-commits] r12796 - in Catalyst-Plugin-Static-Simple/trunk: . lib/Catalyst/Plugin/Static

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2010-02-01 17:51:17 +0000 (Mon, 01 Feb 2010)
New Revision: 12796

Modified:
   Catalyst-Plugin-Static-Simple/trunk/Changes
   Catalyst-Plugin-Static-Simple/trunk/lib/Catalyst/Plugin/Static/Simple.pm
Log:
from override to around, because that actually works

Modified: Catalyst-Plugin-Static-Simple/trunk/Changes
===================================================================
--- Catalyst-Plugin-Static-Simple/trunk/Changes	2010-02-01 16:40:45 UTC (rev 12795)
+++ Catalyst-Plugin-Static-Simple/trunk/Changes	2010-02-01 17:51:17 UTC (rev 12796)
@@ -1,5 +1,7 @@
 Revision history for Perl extension Catalyst::Plugin::Static::Simple
 
+        - Switch from override to around, because really, wtf
+
 0.28   2010-01-04 13:15:00
         - Fix issues in debug mode. (RT#53338)
 

Modified: Catalyst-Plugin-Static-Simple/trunk/lib/Catalyst/Plugin/Static/Simple.pm
===================================================================
--- Catalyst-Plugin-Static-Simple/trunk/lib/Catalyst/Plugin/Static/Simple.pm	2010-02-01 16:40:45 UTC (rev 12795)
+++ Catalyst-Plugin-Static-Simple/trunk/lib/Catalyst/Plugin/Static/Simple.pm	2010-02-01 17:51:17 UTC (rev 12796)
@@ -60,7 +60,8 @@
     }
 };
 
-override dispatch => sub {
+around dispatch => sub {
+    my $orig = shift;
     my $c = shift;
 
     return if ( $c->res->status != 200 );
@@ -72,7 +73,7 @@
         return $c->_serve_static;
     }
     else {
-        return super;
+        return $c->$orig(@_);
     }
 };
 
@@ -569,6 +570,8 @@
 
 Justin Wheeler (dnm)
 
+Matt S Trout, <mst at shadowcat.co.uk>
+
 =head1 THANKS
 
 The authors of Catalyst::Plugin::Static: