use key for copy source, not value

kentnl · Nov 4, 2013 · 89395a2 · 89395a2
1 parent d36b1e8
commit 89395a2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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{/?$}{/};