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

abe pushed a commit to annotated tag 0.2.2-source
in repository libdist-zilla-role-bootstrap-perl.

commit d2d597f5f4bd8d3da9a56f859f868d7bfbec0a3a
Author: Kent Fredric <kentfred...@gmail.com>
Date:   Mon Nov 4 22:55:05 2013 +1300

    make clean/protect/skip diags clearer
---
 sterilize_env.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/sterilize_env.pl b/sterilize_env.pl
index 098701b..eac8cd4 100644
--- a/sterilize_env.pl
+++ b/sterilize_env.pl
@@ -93,6 +93,7 @@ if ( -e $skiplist_file and -f $skiplist_file ) {
   local $/ = "\0\n";
   while ( my $line = <$fh> ) {
     my ($module) = split /\0/, $line;
+    diag("\e[34m$module\e[0m");
     $skip->{$module} = 1;
   }
 }
@@ -102,6 +103,7 @@ if ( -e $protectlist_file and -f $protectlist_file ) {
   local $/ = "\0\n";
   while ( my $line = <$fh> ) {
     my ($file) = split /\0/, $line;
+    diag("\e[34m$file\e[0m");
     $protect->{$file} = 1;
   }
 }
@@ -133,9 +135,12 @@ if ( -e $corelist_file and -f $corelist_file ) {
       require File::Spec;
       my $rel = File::Spec->abs2rel( $file, $libdir );
       if ( not exists $protect->{$rel} ) {
-        diag("\e[33m Unprotected, Removed: $rel");
+        diag("\e[33m Unprotected, $rel\e[0m");
         unlink $file;
       }
+      else {
+        diag("\e[34m Protected, $rel\e[0m");
+      }
     }
   }
   exit 0;

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-role-bootstrap-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to