devops/build: Set new build products (.buildinfo, .ddeb) read-only.
authorMatt Birkholz <matt@birchwood-abbey.net>
Thu, 25 Jan 2018 16:09:27 +0000 (09:09 -0700)
committerMatt Birkholz <matt@birchwood-abbey.net>
Thu, 25 Jan 2018 16:09:27 +0000 (09:09 -0700)
src/devops/build.scm

index 659c0eb908c58cb6ac985c23627b067edb4e2932..d0546a2aafc87144d47061d38bcb25a00ace92f7 100644 (file)
@@ -135,6 +135,10 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
     (let ((darch build-debian-architecture))
       (set-file-modes! (string build-dir"/"name"_"vers"_"darch".deb") #o444)
       (set-file-modes! (string build-dir"/"name"_"vers"_"darch".changes") #o444)
+      (let ((f (string build-dir"/"name"_"vers"_"darch".buildinfo")))
+       (if (file-exists? f) (set-file-modes! f #o444)))
+      (let ((f (string build-dir"/"name"-dbgsym_"vers"_"darch".ddeb")))
+       (if (file-exists? f) (set-file-modes! f #o444)))
       (run "rm -rf "pkgdir)
       (run "sudo "project-name"-install "name"_"vers"_"darch".deb"))))