cran2deb: small bug fixes.

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

diff --git a/pkg/trunk/exec/diagnose_ctv b/pkg/trunk/exec/diagnose_ctv
index 665ff8c19f60937da1e4448190e968e516540a84..b1f995d6fc3c1327050b47745ff283260c93efd4 100755 (executable)
--- a/pkg/trunk/exec/diagnose_ctv
+++ b/pkg/trunk/exec/diagnose_ctv
@@ -1,2 +1,2 @@
 #!/usr/bin/env rc
-{for (x in ctv/*) {echo;echo;echo $x: ; cd $x && ../../diagnose && cd ../..}} >ctv.results
+{for (x in ctv/*) {echo;echo;echo $x: ; cd $x && cran2deb diagnose && cd ../..}} >ctv.results

diff --git a/pkg/trunk/exec/update_cache b/pkg/trunk/exec/update_cache
index ec20ccb6688660a655a6d89d39ca3cb8e8d6c788..ef91f13d0f00b5f90409628451b74ba1daacbfeb 100755 (executable)
--- a/pkg/trunk/exec/update_cache
+++ b/pkg/trunk/exec/update_cache
@@ -1,6 +1,10 @@
 #!/usr/bin/env Rscript
 library(cran2deb)
 library(ctv)
+
+argv <- commandArgs()
+argv <- argv[-(1:match("--args", argv))]
+
 #mirror <- 'http://cran.uk.r-project.org/'
 mirror <- 'http://cran.r-project.org/'