global-functions: $DownloadPackage: re-introduce check for valid package

Even if fetch tool does its job right now... Chances are that the
download servers have corrupted or empty files.

1 files changed, 5 insertions, 0 deletions

diff --git a/global-functions b/global-functions
index b7eec27..a139345 100644
--- a/global-functions
+++ b/global-functions
@@ -200,6 +200,11 @@
     :return false;
   }
 
+  :if ([ / file get [ find where name=$PkgDest ] type ] != "package") do={
+    / file remove [ find where name=$PkgDest ];
+    :return false;
+  }
+
   :return true;
 }