diff -Naur Catalyst-Plugin-RequireSSL-0.06/lib/Catalyst/Plugin/RequireSSL.pm Catalyst-Plugin-RequireSSL-0.07/lib/Catalyst/Plugin/RequireSSL.pm
--- Catalyst-Plugin-RequireSSL-0.06/lib/Catalyst/Plugin/RequireSSL.pm 2007-03-06 15:45:35.000000000 +0000
+++ Catalyst-Plugin-RequireSSL-0.07/lib/Catalyst/Plugin/RequireSSL.pm 2009-12-22 12:06:26.379484219 +0000
@@ -2,9 +2,9 @@
use strict;
use base qw/Class::Accessor::Fast/;
-use NEXT;
+use MRO::Compat;
-our $VERSION = '0.06';
+our $VERSION = '0.07';
__PACKAGE__->mk_accessors( qw/_require_ssl _ssl_strip_output/ );
@@ -30,7 +30,7 @@
# Do not redirect static files (only works with Static::Simple)
if ( $c->isa( "Catalyst::Plugin::Static::Simple" ) ) {
- return $c->NEXT::finalize(@_) if $c->_static_file;
+ return $c->next::method(@_) if $c->_static_file;
}
# redirect back to non-SSL mode
@@ -54,13 +54,13 @@
$c->res->body( '' );
}
- return $c->NEXT::finalize(@_);
+ return $c->next::method(@_);
}
sub setup {
my $c = shift;
- $c->NEXT::setup(@_);
+ $c->next::method(@_);
# disable the plugin when running under certain engines which don't
# support SSL