Make sure update command can clean older version of Pakku dist if…

… needed
hythm7 · Aug 15, 2023 · 6bcf59a · 6bcf59a
1 parent 5837297
commit 6bcf59a
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/lib/Pakku/Command/Update.rakumod b/lib/Pakku/Command/Update.rakumod
@@ -29,11 +29,6 @@ multi method fly (
 
   my %state = self.state: :updates;
 
-  %state.values
-    ==> grep( *.<cln> )
-    ==> map( *.<meta> )
-    ==> my @clean;
-
   eager @spec.sort
    ==> map( -> $spec { Pakku::Spec.new: $spec } )
    ==> map( -> $spec {
@@ -187,7 +182,14 @@ multi method fly (
     }
 
     if $clean {
-      samewith 'remove', spec => @clean.map( *.Str ) if @clean;
+
+      self.state( :!updates ).values
+        ==> grep( *.<cln> )
+        ==> map( *.<meta>.Str )
+        ==> my @spec;
+
+      samewith 'remove', :@spec if @spec;
+
     }
   }
 }