From 292475feb04c74825057106987ff9ce0b4a10f67 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Thu, 25 Jan 2018 09:09:27 -0700 Subject: [PATCH] devops/build: Set new build products (.buildinfo, .ddeb) read-only. --- src/devops/build.scm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/devops/build.scm b/src/devops/build.scm index 659c0eb90..d0546a2aa 100644 --- a/src/devops/build.scm +++ b/src/devops/build.scm @@ -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")))) -- 2.25.1