[libmoosex-has-sugar-perl] 45/120: Prune the dir, not the name of its key

[Intrigeri]

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 2e063a34cf4de16f787acdb2a2ef68c0250d49b9
Author: Kent Fredric <kentfredric at gmail.com>
Date:   Thu Oct 24 12:25:50 2013 +1300

    Prune the dir, not the name of its key
---
 sterilize_env.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sterilize_env.pl b/sterilize_env.pl
index b92d698..168af1d 100644
--- a/sterilize_env.pl
+++ b/sterilize_env.pl
@@ -40,7 +40,7 @@ if ( not exists $ENV{TRAVIS} ) {
 }
 use Config;
 for my $libdir ( grep { $_ =~ /site(lib|arch)exp$/ } keys %Config ) {
-  safe_exec( 'find', $libdir, '-type', 'f', '-delete' );
-  safe_exec( 'find', $libdir, '-depth', '-type', 'd', '-delete' );
+  safe_exec( 'find', $Config{$libdir}, '-type', 'f', '-delete' );
+  safe_exec( 'find', $Config{$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