Added workaround for stupid components expecting Catalyst::Base::new()

diff --git a/lib/Catalyst/Base.pm b/lib/Catalyst/Base.pm
index 6a97984..dd93038 100644 (file)
--- a/lib/Catalyst/Base.pm
+++ b/lib/Catalyst/Base.pm
@@ -12,6 +12,9 @@ __PACKAGE__->mk_classdata($_) for qw/_dispatch_steps/;
 
 __PACKAGE__->_dispatch_steps( [qw/_BEGIN _AUTO _ACTION/] );
 
+# Fix for stupid components
+*new = \&Catalyst::Component::new;
+
 sub _DISPATCH : Private {
     my ( $self, $c ) = @_;