From: Yuval Kogman Date: Wed, 10 May 2006 20:35:29 +0000 (+0000) Subject: Fix the RV of the first call to ->config X-Git-Tag: 5.7099_04~595 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=c7a54b4e7f6f28245075dd165fdbf7269ffa9d59 Fix the RV of the first call to ->config --- diff --git a/lib/Catalyst/Component.pm b/lib/Catalyst/Component.pm index 5f1e83a..1b601fe 100644 --- a/lib/Catalyst/Component.pm +++ b/lib/Catalyst/Component.pm @@ -102,8 +102,7 @@ sub config { my $self = shift; my $config = $self->_config; unless ($config) { - $self->_config( {} ); - $config = {}; + $self->_config( $config = {} ); } if (@_) { $config = { %{$config}, %{@_ > 1 ? {@_} : $_[0]} };