[libmoosex-has-sugar-perl] 111/120: Dirs will never be files, dolt

[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 43bd265d6b97d3970c0033b5a768a99e1cc84a8e
Author: Kent Fredric <kentfredric at gmail.com>
Date:   Tue Nov 5 01:32:58 2013 +1300

    Dirs will never be files, dolt
---
 lib/tools.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/tools.pm b/lib/tools.pm
index 52b88c3..d9009ee 100644
--- a/lib/tools.pm
+++ b/lib/tools.pm
@@ -115,7 +115,8 @@ sub deploy_sterile {
     next unless defined $value;
     next unless length $value;
     my $clean_path = '/tmp/perl5-sterile/' . $key;
-    if ( -e $clean_path and -f $clean_path ) {
+    diag("\e[32m?$clean_path\e[0m");
+    if ( -e $clean_path and -d $clean_path ) {
       diag("\e[31mRsyncing over $value\e[0m");
       $clean_path =~ s{/?$}{/};
       $value =~ s{/?$}{/};

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