From 46f4b98439c056b91221dc24c28437c70fd6466a Mon Sep 17 00:00:00 2001 From: blundellc Date: Sun, 14 Jun 2009 18:10:09 +0000 Subject: [PATCH] adapt for flat mini-dinstall git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@246 edb9625f-4e0d-4859-8d74-9fd3b1da38cb --- trunk/R/build.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/trunk/R/build.R b/trunk/R/build.R index 74479fb..3855a27 100644 --- a/trunk/R/build.R +++ b/trunk/R/build.R @@ -44,14 +44,14 @@ build <- function(name,extra_deps,force=F) { # wait for mini-dinstall to get to work upload_success = FALSE - for (i in seq(1,60)) { - if (file.exists(file.path(dinstall_archive,'testing','source',paste(pkg$srcname, '_', pkg$version, '.orig.tar.gz', sep='')))) { + for (i in seq(1,12)) { + if (file.exists(file.path(dinstall_archive,'testing',paste(pkg$srcname, '_', pkg$version, '.orig.tar.gz', sep='')))) { upload_success = TRUE break } - warn(i,'/60: does not exist',file.path(dinstall_archive,which_system,'testing','source',paste(pkg$srcname, '_', pkg$version, '.orig.tar.gz', sep=''))) + warn(i,'/12: does not exist',file.path(dinstall_archive,'testing',paste(pkg$srcname, '_', pkg$version, '.orig.tar.gz', sep=''))) - Sys.sleep(1) + Sys.sleep(5) } if (!upload_success) { warn('upload took too long; continuing as normal (some builds may fail temporarily)') -- 2.39.2