[libdist-zilla-role-bootstrap-perl] 95/101: use key for copy source, not value

[Axel Beckert]

This is an automated email from the git hooks/post-receive script.

abe pushed a commit to annotated tag 0.2.2-source
in repository libdist-zilla-role-bootstrap-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/libdist-zilla-role-bootstrap-perl.git