This is an automated email from the git hooks/post-receive script. abe pushed a commit to annotated tag 0.2.1-source in repository libdist-zilla-role-bootstrap-perl.
commit 746ad1ccb413af9be7c5b4e111c34b85635476f0 Author: Kent Fredric <kentfred...@gmail.com> Date: Sun Sep 22 03:36:52 2013 +1200 Make sterilize env respond to more ENV variables --- sterilize_env.pl | 20 +++++++++++++++++--- 1 file changed, 17 insertions(+), 3 deletions(-) diff --git a/sterilize_env.pl b/sterilize_env.pl index 83d1b1b..df4c9de 100644 --- a/sterilize_env.pl +++ b/sterilize_env.pl @@ -3,15 +3,29 @@ use strict; use warnings; use utf8; +sub diag { + print STDERR @_; + print STDERR "\n"; +} + +if ( not exists $ENV{STERILIZE_ENV} ) { + diag('STERILIZE_ENV unset'); + exit 0; +} +if ( $ENV{STERILIZE_ENV} < 1 ) { + diag('STERLIZIE_ENV < 1, Not Sterilizing'); + exit 0; +} if ( not exists $ENV{TRAVIS} ) { - die "Is not travis!"; + diag('Is not running under travis!'); + exit 1; } for my $i (@INC) { next if $i !~ /site/; next if $i eq '.'; - - # printf "%s\n", $i; + diag( 'Sterilizing files in ' . $i ); system( 'find', $i, '-type', 'f', '-delete' ); + diag( 'Sterilizing dirs in ' . $i ); system( 'find', $i, '-depth', '-type', 'd', '-delete' ); } -- 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