some debugging statements added and currently commented-out

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

diff --git a/trunk/R/db.R b/trunk/R/db.R
index cd9c606234a41d409df2b61a1d5b9d48ccb345ff..578fa711ed1622028544613ce32b46efc8f73a04 100644 (file)
--- a/trunk/R/db.R
+++ b/trunk/R/db.R
@@ -341,7 +341,7 @@ db_record_build <- function(package, deb_version, log, success=F) {
                     ,',',db_quote(scm_revision)
                     ,',',log
                     ,')')
-    print(sqlcmd)
+    ##print(sqlcmd)
     try(dbGetQuery(con,sqlcmd))
     options(o)
     db_stop(con)

diff --git a/trunk/R/debianpkg.R b/trunk/R/debianpkg.R
index 621c36e0fd928ffd1671489590f9ce6a02089cf7..0012c2bd63464a7b6f938b0b1842fd969fa915d5 100644 (file)
--- a/trunk/R/debianpkg.R
+++ b/trunk/R/debianpkg.R
@@ -133,6 +133,8 @@ prepare_new_debian <- function(pkg,extra_deps) {
     generate_rules(pkg)
     generate_copyright(pkg)
     generate_control(pkg)
+    ## debdir <- file.path(pkg$path,'debian')
+    ## system(paste("ls ", debdir, "; ls -l ", debdir, "/patches/*", sep=""))
 
     # convert text to utf8 (who knows what the original character set is --
     # let's hope iconv DTRT).