allow $self->{author} to be defined at ->new

this allows us to write scripts that get our author information from someplace
other than the environment.

Signed-off-by: Caleb Cushing <xenoterracide@gmail.com>

diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm
index 5338cd0..57abaa7 100644 (file)
--- a/lib/Catalyst/Helper.pm
+++ b/lib/Catalyst/Helper.pm
@@ -112,7 +112,7 @@ sub mk_app {
                                 : "#!$Config{perlpath}";
     $self->{scriptgen       } = $Catalyst::Devel::CATALYST_SCRIPT_GEN;
     $self->{catalyst_version} = $Catalyst::VERSION;
-    $self->{author          } = $self->{author} = $ENV{'AUTHOR'}
+    $self->{author          } ||= $ENV{'AUTHOR'}
       || eval { @{ [ getpwuid($<) ] }[6] }
       || 'Catalyst developer';