From: kmx <kmx@volny.cz>
Date: Tue, 9 Jun 2009 19:04:59 +0000 (+0000)
Subject: C::Devel - handling some "Use of uninit. value" warnings in Module::Install::Catalyst
X-Git-Tag: 1.18~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f7a957fb04f72d524caed182ec714723362dcad;p=catagits%2FCatalyst-Devel.git

C::Devel - handling some "Use of uninit. value" warnings in Module::Install::Catalyst
---

diff --git a/lib/Module/Install/Catalyst.pm b/lib/Module/Install/Catalyst.pm
index e63fddd..6b2e265 100644
--- a/lib/Module/Install/Catalyst.pm
+++ b/lib/Module/Install/Catalyst.pm
@@ -20,8 +20,8 @@ our @CLASSES   = ();
 our $ENGINE    = 'CGI';
 our $CORE      = 0;
 our $MULTIARCH = 0;
-our $SCRIPT;
-our $USAGE;
+our $SCRIPT    = '';
+our $USAGE     = '';
 
 =head1 NAME
 
@@ -104,6 +104,7 @@ sub catalyst_ignore {
 # Workaround for a namespace conflict
 sub catalyst_par {
     my ( $self, $par ) = @_;
+    $par ||= '';
     return if $SAFETY;
     $SAFETY++;
     my $name  = $self->name;