From ab4aef4dfba35a715f9786566e33a6c1abc3350c Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Thu, 1 Aug 2019 18:45:54 +0200
Subject: 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.
---
 global-functions | 5 +++++
 1 file changed, 5 insertions(+)

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;
 }
 
-- 
cgit v1.2.3-54-g00ecf