set the default umask for cran2deb to 002 and clean up the archive after build. hopef...

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@128 edb9625f-4e0d-4859-8d74-9fd3b1da38cb

diff --git a/pkg/trunk/R/build.R b/pkg/trunk/R/build.R
index 316258b4d8c4d9b8ebfd563702499d260c948b52..e6eeccd6cbb5469d1edceabaa3db7a0915effee6 100644 (file)
--- 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 a28879c260e6b6c02be361f0f05407f82c5955ea..7130044d4c9be92463bbf15979d2df7f4868dc23 100755 (executable)
--- 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