Fix uninstall

rakudo · Feb 16, 2016 · 73114b5 · 73114b5
1 parent 4cd2875
commit 73114b5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/CompUnit/Repository/Installation.pm b/src/core/CompUnit/Repository/Installation.pm
@@ -219,10 +219,10 @@ sub MAIN(:$name is copy, :$auth, :$ver, *@, *%) {
         my $short-dir     = self.prefix.child('short');
         my $dist-dir      = self.prefix.child('dist');
 
-        $short-dir.child(nqp::sha1($_)).unlink for %files.grep: {$_.key ~~ /^bin\//};
+        $short-dir.child(nqp::sha1($_.value)).unlink for %files.grep: {$_.key ~~ /^bin\//};
         $short-dir.child(nqp::sha1($_)).unlink for %provides.keys;
         $short-dir.child(nqp::sha1($dist.name)).unlink;
-        $sources-dir.child($_<file>).unlink for %provides.values.map(*.values.Slip);
+        $sources-dir.child($_).unlink for %provides.map(*.value<pm><file>);
         $resources-dir.child($_).unlink for %files.values;
         $dist-dir.child($dist.id).unlink;
     }