From 73eb9e2e343dde76916d6c55767d2319f3ab207e Mon Sep 17 00:00:00 2001
From: blundellc <blundellc@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Sat, 13 Sep 2008 13:19:44 +0000
Subject: [PATCH] cran2deb: small bug fixes.

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@69 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---
 pkg/trunk/exec/diagnose_ctv | 2 +-
 pkg/trunk/exec/update_cache | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/pkg/trunk/exec/diagnose_ctv b/pkg/trunk/exec/diagnose_ctv
index 665ff8c..b1f995d 100755
--- 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 ec20ccb..ef91f13 100755
--- 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/'
 
-- 
2.39.5