Overwrite existing files

These may be created when things don't go perfectly.
Raku · Jan 25, 2018 · 13eeae8 · 13eeae8
1 parent 3e00148
commit 13eeae8
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/maintenance/long-term-storage.p6 b/maintenance/long-term-storage.p6
@@ -78,8 +78,14 @@ sub pack-it {
     my $large-archive-path = “{ARCHIVES-LOCATION}/$sha.lrz”;
 
     my $proc = run :out, :bin, ‘tar’, ‘cf’, ‘-’, ‘--absolute-names’, ‘--remove-files’, ‘--’, |@paths;
+    if $large-archive-path.IO.e {
+        $large-archive-path.IO.unlink # remove existing (just in case)
+    }
     if run :in($proc.out), :bin, ‘lrzip’, ‘-q’, ‘-L’, ‘9’, ‘-o’, $large-archive-path {
         for @pack {
+            if “{ARCHIVES-LOCATION}/$_”.IO.e {
+                “{ARCHIVES-LOCATION}/$_”.IO.unlink # remove existing (just in case)
+            }
             $large-archive-path.IO.symlink(“{ARCHIVES-LOCATION}/$_”);
             unlink “{ARCHIVES-LOCATION}/$_.zst”
         }