[Catalyst-commits] r10490 - Catalyst-Devel/1.00/trunk/lib/Module/Install

[kmx at dev.catalyst.perl.org]

Author: kmx
Date: 2009-06-09 19:04:59 +0000 (Tue, 09 Jun 2009)
New Revision: 10490

Modified:
   Catalyst-Devel/1.00/trunk/lib/Module/Install/Catalyst.pm
Log:
C::Devel - handling some "Use of uninit. value" warnings in Module::Install::Catalyst

Modified: Catalyst-Devel/1.00/trunk/lib/Module/Install/Catalyst.pm
===================================================================
--- Catalyst-Devel/1.00/trunk/lib/Module/Install/Catalyst.pm	2009-06-09 12:46:43 UTC (rev 10489)
+++ Catalyst-Devel/1.00/trunk/lib/Module/Install/Catalyst.pm	2009-06-09 19:04:59 UTC (rev 10490)
@@ -20,8 +20,8 @@
 our $ENGINE    = 'CGI';
 our $CORE      = 0;
 our $MULTIARCH = 0;
-our $SCRIPT;
-our $USAGE;
+our $SCRIPT    = '';
+our $USAGE     = '';
 
 =head1 NAME
 
@@ -104,6 +104,7 @@
 # Workaround for a namespace conflict
 sub catalyst_par {
     my ( $self, $par ) = @_;
+    $par ||= '';
     return if $SAFETY;
     $SAFETY++;
     my $name  = $self->name;