Permalink
Browse files

use key for copy source, not value

  • Loading branch information...
1 parent d36b1e8 commit 89395a2c4e23789841d29fc300a7e38e8e6309d2 @kentfredric kentfredric committed Nov 4, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/tools.pm
View
@@ -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{/?$}{/};

0 comments on commit 89395a2

Please sign in to comment.