[libmoosex-has-sugar-perl] 59/120: -e and -f don't stack before 5.10

[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 76176a3dde0292ef69190d0e1eabb1c08b43012c
Author: Kent Fredric <kentfredric at gmail.com>
Date:   Wed Oct 30 20:55:48 2013 +1300

    -e and -f don't stack before 5.10
---
 sterilize_env.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/sterilize_env.pl b/sterilize_env.pl
index c000827..9b7be14 100644
--- a/sterilize_env.pl
+++ b/sterilize_env.pl
@@ -54,8 +54,8 @@ 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;
+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;
 
 for my $perl_ver ( keys %{$extra_sterile} ) {
   if ( env_is( 'TRAVIS_PERL_VERSION', $perl_ver ) ) {
@@ -70,7 +70,7 @@ for my $perl_ver ( keys %{$extra_sterile} ) {
         for my $removal ( @{ $fixups->{remove} } ) {
           my $path = $libdir . '/' . $removal;
           diag("\e[32m ? $path \e[0m");
-          if ( -e -f $path ) {
+          if ( -e $path and -f $path ) {
             unlink $path;
             diag("Removed $path");
           }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoosex-has-sugar-perl.git