Merge pull request #497 from ugexe/patch-1

Distribution.provides initialization
rakudo · Aug 16, 2015 · 552f8ab · 552f8ab
2 parents 360ac8e + 3bb6333
commit 552f8ab
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/core/CompUnitRepo/Local/Installation.pm b/src/core/CompUnitRepo/Local/Installation.pm
@@ -94,10 +94,8 @@ sub MAIN(:$name, :$auth, :$ver, *@, *%) {
         }
 
         # Initialize "provides" section.
-        for %($d.provides).kv -> $k, $v is rw {
-            # when we do not use .kv, we error out when trying to store into Pairs
-            $v = {};
-        }
+        # when we do not use .kv, we error out when trying to store into Pairs
+        $d.provides.kv.map: -> $k, $ { $d.provides.{$k} = {} }
 
         # Walk the to be installed files, decide whether we put them into
         # "provides" or just "files".