[Catalyst-commits] r9754 - Catalyst-Plugin-Compress/trunk/lib/Catalyst/Plugin

[xinming at dev.catalyst.perl.org]

Author: xinming
Date: 2009-04-20 11:06:35 +0100 (Mon, 20 Apr 2009)
New Revision: 9754

Modified:
   Catalyst-Plugin-Compress/trunk/lib/Catalyst/Plugin/Compress.pm
Log:
Use maybe::next::method instead of next::method as suggested by rafl.

Modified: Catalyst-Plugin-Compress/trunk/lib/Catalyst/Plugin/Compress.pm
===================================================================
--- Catalyst-Plugin-Compress/trunk/lib/Catalyst/Plugin/Compress.pm	2009-04-20 08:58:15 UTC (rev 9753)
+++ Catalyst-Plugin-Compress/trunk/lib/Catalyst/Plugin/Compress.pm	2009-04-20 10:06:35 UTC (rev 9754)
@@ -60,7 +60,7 @@
 
         *_do_compress = \&{"_${_method}_compress"};
     }
-    $c->next::method(@_);
+    $c->maybe::next::method(@_);
 }
 
 sub finalize {
@@ -72,13 +72,13 @@
         or ($c->res->status != 200)
         or ($c->res->content_type !~ /^text|xml$|javascript$/)
     ) {
-        return $c->next::method(@_);
+        return $c->maybe::next::method(@_);
     }
 
     my $accept = $c->request->header('Accept-Encoding') || '';
 
     unless (index($accept, $_method) >= 0) {
-        return $c->next::method(@_);
+        return $c->maybe::next::method(@_);
     }
 
     my $body = $c->res->body;
@@ -94,7 +94,7 @@
     $c->response->content_encoding($_method);
     $c->response->headers->push_header('Vary', 'Accept-Encoding');
 
-    $c->next::method(@_);
+    $c->maybe::next::method(@_);
 }
 
 1;