From 80a057f3b9a4edf55a58e1138ec55c2865d2d2d6 Mon Sep 17 00:00:00 2001
From: blundellc <blundellc@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Sat, 13 Sep 2008 13:22:58 +0000
Subject: [PATCH] misc fixes: update database fully rather than just licenses,
 initialise a variable in autobuild, correct some corruption(?!), don't
 include orig.tar.gz if the package revision > 1.

slightly worrying how the 5 changed to a 1.

R's error reporting is pretty foul. this missing extra_deps error
manifested itself 3-4 layers down the stack trace. R doesn't give a
stack trace either. not good for large software.

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@95 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---
 pkg/trunk/R/build.R      | 7 ++++++-
 pkg/trunk/R/db.R         | 2 +-
 pkg/trunk/exec/autobuild | 2 +-
 pkg/trunk/exec/update    | 2 --
 4 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/pkg/trunk/R/build.R b/pkg/trunk/R/build.R
index 151d47a..778410b 100644
--- a/pkg/trunk/R/build.R
+++ b/pkg/trunk/R/build.R
@@ -87,7 +87,12 @@ build_debian <- function(pkg) {
                  ,pkg$debname
                  ,paste('(',pkg$debversion,')',sep='')
                  ,'...')
-    ret = system(paste('pdebuild --configfile',shQuote(pbuilder_config)))
+
+    cmd = paste('pdebuild --configfile',shQuote(pbuilder_config))
+    if (version_revision(pkg$debversion) > 2) {
+        cmd = paste(cmd,'--debbuildopts','-sd')
+    }
+    ret = system(cmd)
     setwd(wd)
     if (ret != 0) {
         fail('Failed to build package.')
diff --git a/pkg/trunk/R/db.R b/pkg/trunk/R/db.R
index 5b5ab3b..c73f98e 100644
--- a/pkg/trunk/R/db.R
+++ b/pkg/trunk/R/db.R
@@ -74,7 +74,7 @@ db_stop <- function(con,bump=F) {
 }
 
 db_quote <- function(text) {
-    return(paste('"',gsub('([^][[:alnum:][:space:]*?.,()<>;:/=+%-])','\\\\\\5',text),'"',sep=''))
+    return(paste('"',gsub('([^][[:alnum:][:space:]*?.,()<>;:/=+%-])','\\\\\\1',text),'"',sep=''))
 }
 
 db_now <- function() {
diff --git a/pkg/trunk/exec/autobuild b/pkg/trunk/exec/autobuild
index 1e1a65d..2e4107a 100755
--- a/pkg/trunk/exec/autobuild
+++ b/pkg/trunk/exec/autobuild
@@ -7,6 +7,6 @@ if (exists('argv')) { # check for littler
     build_order <- r_dependency_closure(outdated)
     notice('build order',paste(build_order,collapse=', '))
     for (pkg in build_order) {
-        build(pkg,extra_deps)
+        build(pkg,c())
     }
 }
diff --git a/pkg/trunk/exec/update b/pkg/trunk/exec/update
index 00e3a1b..d454837 100755
--- a/pkg/trunk/exec/update
+++ b/pkg/trunk/exec/update
@@ -28,8 +28,6 @@ if (![ -e /var/cache/cran2deb/cache.rda ] || [ $delta -gt $update_period ]) {
 }
 if (![ -e /var/cache/cran2deb/cran2deb.db ] || [ $delta -gt $update_period ]) {
     cat $root/data/^(populate_licenses quit) | $root/exec/license $root
-}
-if (![ -e /var/cache/cran2deb/cran2deb.db ]) {
     cat $root/data/^(populate_depend_aliases populate_sysreq populate_forcedep quit) | $root/exec/depend $root
 }
 
-- 
2.39.2