[libmoosex-has-sugar-perl] 110/120: use key for copy source, not value

[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 89395a2c4e23789841d29fc300a7e38e8e6309d2
Author: Kent Fredric <kentfredric at gmail.com>
Date:   Tue Nov 5 01:27:29 2013 +1300

    use key for copy source, not value
---
 lib/tools.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

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