[osutils] improve install() utility

use case (*nix only): $ sudo plumage install plumage
parrot · Jan 2, 2011 · 539d122 · 539d122
1 parent 7460ad9
commit 539d122
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/runtime/parrot/library/osutils.pir b/runtime/parrot/library/osutils.pir
@@ -197,6 +197,10 @@ osutils - Parrot OS Utilities
   L2:
     $I0 = newer(dst, src)
     if $I0 goto L3
+    $I0 = stat dst, .STAT_EXISTS
+    unless $I0 goto L4
+    unlink(dst, verbose :named('verbose'))
+  L4:
     cp(src, dst, verbose :named('verbose'))
     unless has_exe goto L3
     unless exe goto L3