From 336aa26c222d6d744ed93ccf5c646159fec599ac Mon Sep 17 00:00:00 2001
From: blundellc <blundellc@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Sat, 13 Sep 2008 13:27:05 +0000
Subject: [PATCH] set the default umask for cran2deb to 002 and clean up the
 archive after build. hopefully this will allow smoother group operation.

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@128 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---
 pkg/trunk/R/build.R     | 9 +++++++++
 pkg/trunk/exec/cran2deb | 1 +
 2 files changed, 10 insertions(+)

diff --git a/pkg/trunk/R/build.R b/pkg/trunk/R/build.R
index 316258b..e6eeccd 100644
--- a/pkg/trunk/R/build.R
+++ b/pkg/trunk/R/build.R
@@ -67,6 +67,15 @@ build <- function(name,extra_deps,force=F) {
             fail('upload failed!')
         }
 
+        # delete the current archive (XXX: assumes mini-dinstall)
+        # this is handy for group operation
+        for (subdir in c('mini-dinstall','unstable')) {
+            path = file.path(dinstall_archive,subdir)
+            if (file.exists(path)) {
+                unlink(path,recursive=T)
+            }
+        }
+
         return(pkg$debversion)
     })())
     cleanup(dir)
diff --git a/pkg/trunk/exec/cran2deb b/pkg/trunk/exec/cran2deb
index a28879c..7130044 100755
--- a/pkg/trunk/exec/cran2deb
+++ b/pkg/trunk/exec/cran2deb
@@ -1,4 +1,5 @@
 #!/usr/bin/rc
+umask 002
 root=`{r -e 'suppressMessages(library(cran2deb));cat(system.file(package=''cran2deb''),file=stdout())'}
 cmd=$1
 shift
-- 
2.39.5