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 dd9e08a25e64297ea132493c9e8953f3775b5da0 Author: Kent Fredric <kentfred...@gmail.com> Date: Mon Nov 4 22:42:52 2013 +1300 Make file loading more obvious, skip installs if versions are undef --- sterilize_env.pl | 21 +++++++++++++++++---- 1 file changed, 17 insertions(+), 4 deletions(-) diff --git a/sterilize_env.pl b/sterilize_env.pl index 69b0fa6..098701b 100644 --- a/sterilize_env.pl +++ b/sterilize_env.pl @@ -80,12 +80,15 @@ sub valid_libs { 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'; +my ($corelist_file) = $corelists . '/' . $] . '.zsv'; +my ($skiplist_file) = $corelists . '/' . $] . '_skip.zsv'; +my ($protectlist_file) = $corelists . '/' . $] . '_protect.zsv'; -my $skip = {}; +my $skip = {}; +my $protect = {}; if ( -e $skiplist_file and -f $skiplist_file ) { + diag("\e[33m Reading skips from $skiplist_file\e[0m"); open my $fh, '<', $skiplist_file; local $/ = "\0\n"; while ( my $line = <$fh> ) { @@ -93,7 +96,16 @@ if ( -e $skiplist_file and -f $skiplist_file ) { $skip->{$module} = 1; } } -my $protect = {}; +if ( -e $protectlist_file and -f $protectlist_file ) { + diag("\e[33m Reading protections from $protectlist_file\e[0m"); + open my $fh, '<', $protectlist_file; + local $/ = "\0\n"; + while ( my $line = <$fh> ) { + my ($file) = split /\0/, $line; + $protect->{$file} = 1; + } +} + if ( -e $corelist_file and -f $corelist_file ) { diag("\e[32m Found corelist file for this perl: $], sterilizing with\e[0m"); open my $fh, '<', $corelist_file; @@ -105,6 +117,7 @@ if ( -e $corelist_file and -f $corelist_file ) { $fn .= '.pm'; $protect->{$fn} = 1; next if $skip->{$module}; + next if not defined $version or not length $version; cpanm( '--skip-satisfied', '--dev', '--quiet', '--notest', '--no-man-pages', $module . '~<=' . $version ); } diag("Removing Bad things from all Config paths"); -- 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