[libmoosex-has-sugar-perl] 72/120: fix syntax errors

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to annotated tag 0.05070422-source
in repository libmoosex-has-sugar-perl.

commit 539a5eec176aee77aa53d4babfd9ca01d11f17f1
Author: Kent Fredric <kentfredric at gmail.com>
Date:   Mon Nov 4 22:29:50 2013 +1300

    fix syntax errors
---
 sterilize_env.pl | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/sterilize_env.pl b/sterilize_env.pl
index 2301e58..21ee08b 100644
--- a/sterilize_env.pl
+++ b/sterilize_env.pl
@@ -13,23 +13,23 @@ sub no_sterile_warning {
     or env_is( 'TRAVIS_PERL_VERSION', '5.10' ) )
   {
     diag("\e[31m TREE STERILIZATION IMPOSSIBLE <= 5.10\e[0m");
-    diag( "\e[32m ... because prior to 5.11.*, dual-life installed to \e[33mprivlib\e[0m" );
-    diag( "\e[32m ... because prior to 5.11.*, \e[33m\@INC\e[32m order was \e[33mprivlib,sitelib\e[0m" );
-    diag( "\e[32m ... whereas after to 5.11.*, \e[33m\@INC\e[32m order is \e[33msitelib,privlib\e[0m" );
-    diag( "\e[32m ... and now most dual-life things simply install to \e[33msitelib\e[0m" );
-    diag( "\e[34m ( However, there are still a few naughty CPAN modules that install to \e[33mprivlib\e[34m )" );
+    diag("\e[32m ... because prior to 5.11.*, dual-life installed to \e[33mprivlib\e[0m");
+    diag("\e[32m ... because prior to 5.11.*, \e[33m\@INC\e[32m order was \e[33mprivlib,sitelib\e[0m");
+    diag("\e[32m ... whereas after to 5.11.*, \e[33m\@INC\e[32m order is \e[33msitelib,privlib\e[0m");
+    diag("\e[32m ... and now most dual-life things simply install to \e[33msitelib\e[0m");
+    diag("\e[34m ( However, there are still a few naughty CPAN modules that install to \e[33mprivlib\e[34m )");
     diag(
       "\e[32m but the net effect of this is that installing \e[33mModule::Build 0.4007\e[32m which pulls \e[33mPerl::OSType\e[0m"
     );
-    diag( "\e[32m and results in  \e[33mPerl::OSType\e[32m being later removed \e[0m" );
-    diag( "\e[32m leaving behind a broken  \e[33mModule::Build 0.4007\e[32m\e[0m" );
-    diag( "\e[34m Set \e[35m MAYBE_BREAK_MODULE_BUILD=1\e[34m if this is ok\e[0m" );
+    diag("\e[32m and results in  \e[33mPerl::OSType\e[32m being later removed \e[0m");
+    diag("\e[32m leaving behind a broken  \e[33mModule::Build 0.4007\e[32m\e[0m");
+    diag("\e[34m Set \e[35m MAYBE_BREAK_MODULE_BUILD=1\e[34m if this is ok\e[0m");
     exit 0 unless env_true('MAYBE_BREAK_MODULE_BUILD');
     diag("\e[35m PROCEEDING\e[0m");
   }
 }
 if ( not env_exists('STERILIZE_ENV') ) {
-  diag( "\e[31STERILIZE_ENV is not set, skipping, because this is probably Travis's Default ( and unwanted ) target" );
+  diag("\e[31STERILIZE_ENV is not set, skipping, because this is probably Travis's Default ( and unwanted ) target");
   exit 0;
 }
 if ( not env_true('STERILIZE_ENV') ) {
@@ -107,8 +107,10 @@ if ( -e $corelist_file and -f $corelist_file ) {
     cpanm( '--skip-satisfied', '--dev', '--quiet', '--notest', '--no-man-pages', $module . '~<=' . $version );
   }
   diag("Removing Bad things from all Config paths");
-  safe_exec( 'find', $libdir, '-type', 'f', '-delete' );
-  safe_exec( 'find', $libdir, '-depth', '-type', 'd', '-delete' );
+  for my $libdir (@sitelibs) {
+    safe_exec( 'find', $libdir, '-type', 'f', '-delete' );
+    safe_exec( 'find', $libdir, '-depth', '-type', 'd', '-delete' );
+  }
 
   for my $libdir (@all_libs) {
     open my $finder, '-|', 'find', $libdir, '-type', 'f', '-print0';

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoosex-has-sugar-perl.git