[libmoosex-has-sugar-perl] 73/120: Cleanup compile failures
Intrigeri
intrigeri at moszumanska.debian.org
Wed Aug 27 21:35:11 UTC 2014
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 9c31e2d7d8449397c13f0f8cda241bcdec6c5798
Author: Kent Fredric <kentfredric at 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/libmoosex-has-sugar-perl.git
More information about the Pkg-perl-cvs-commits
mailing list