X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FComponent.pm;h=62ab0666263180cb95e3512b833efd5b5577993f;hp=9926298d2fef92d0c59a8f41a9d4c927786a4b32;hb=85d9fce671016c9040775c8b4458cf9c72ec2208;hpb=cccc8f68ace5d11c3fdcbfc4e353225b3b574255 diff --git a/lib/Catalyst/Component.pm b/lib/Catalyst/Component.pm index 9926298..62ab066 100644 --- a/lib/Catalyst/Component.pm +++ b/lib/Catalyst/Component.pm @@ -60,7 +60,7 @@ sub new { my $arguments = ( ref( $_[-1] ) eq 'HASH' ) ? $_[-1] : {}; return $self->NEXT::new( - $self->merge_config_hashes( $self->config, $arguments ) ); + $self->merge_config_hashes( $self->config, $arguments ) ); } sub COMPONENT { @@ -79,7 +79,7 @@ sub COMPONENT { else { my $class = ref $self || $self; my $new = $self->merge_config_hashes( - $self->config, $arguments ); + $self->config, $arguments ); return bless $new, $class; } } @@ -184,4 +184,4 @@ Matt S Trout, C This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself. -=cut \ No newline at end of file +=cut