[Bps-public-commit] r19033 - Shipwright/trunk/lib/Shipwright/Util

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Apr  2 13:37:21 2009
New Revision: 19033

Modified:
   Shipwright/trunk/lib/Shipwright/Util/CleanINC.pm
   Shipwright/trunk/lib/Shipwright/Util/PatchModuleBuild.pm

Log:
to make perlcritic.t happy

Modified: Shipwright/trunk/lib/Shipwright/Util/CleanINC.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Util/CleanINC.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Util/CleanINC.pm	Thu Apr  2 13:37:21 2009
@@ -35,7 +35,8 @@
         local $ENV{PERL5OPT} = '';
         local $ENV{PERL5ENV} = '';
         local $ENV{PATH} = $1 if $ENV{PATH} =~ /^(.*)$/;
-        my $perl =  $1 if $^X =~ /^(.*)$/;
+        my $perl;
+        $perl =  $1 if $^X =~ /^(.*)$/;
         # Avoid using -l for the benefit of Perl 6
         chomp( @inc = map { /^(.*)$/ && $1 }  `$perl -e "print join qq[\\n], \@INC, q[]"` );
         return @inc;

Modified: Shipwright/trunk/lib/Shipwright/Util/PatchModuleBuild.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Util/PatchModuleBuild.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Util/PatchModuleBuild.pm	Thu Apr  2 13:37:21 2009
@@ -6,8 +6,8 @@
  
     use Module::Build::Base;
     no warnings qw'redefine';
-    sub Module::Build::Base::ACTION_manpages  {}
-    sub Module::Build::Base::ACTION_docs  {}
+    sub Module::Build::Base::ACTION_manpages  {} ## no critic
+    sub Module::Build::Base::ACTION_docs  {} ## no critic
 
 }