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 9c31e2d7d8449397c13f0f8cda241bcdec6c5798 Author: Kent Fredric <kentfred...@gmail.com> Date: Mon Nov 4 22:36:46 2013 +1300 Cleanup compile failures --- sterilize_env.pl | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/sterilize_env.pl b/sterilize_env.pl index 21ee08b..69b0fa6 100644 --- a/sterilize_env.pl +++ b/sterilize_env.pl @@ -72,12 +72,13 @@ if ( not env_true('TRAVIS') ) { use Config; -my @all_libs = - grep { defined and length and -e $_ } - map { $Config{$_} } grep { $_ =~ /(lib|arch)exp$/ } keys %Config; -my @site_libs = - grep { defined and length and -e $_ } - map { $Config{$_} } grep { $_ =~ /site(lib|arch)exp$/ } keys %Config; +sub valid_libs { + return grep { defined and length and -e $_ } + map { $Config{$_} } @_; +} + +my (@all_libs) = valid_libs( grep { $_ =~ /(lib|arch)exp$/ } keys %Config ); +my (@site_libs) = valid_libs( grep { $_ =~ /site(lib|arch)exp$/ } keys %Config ); my ($corelist_file) = $corelists . '/' . $] . '.zsv'; my ($skiplist_file) = $corelists . '/' . $] . '_skip.zsv'; @@ -107,7 +108,7 @@ 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"); - for my $libdir (@sitelibs) { + for my $libdir (@site_libs) { safe_exec( 'find', $libdir, '-type', 'f', '-delete' ); safe_exec( 'find', $libdir, '-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