[Catalyst-commits] r9754 -
Catalyst-Plugin-Compress/trunk/lib/Catalyst/Plugin
xinming at dev.catalyst.perl.org
xinming at dev.catalyst.perl.org
Mon Apr 20 10:06:35 GMT 2009
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;
More information about the Catalyst-commits
mailing list