X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=trunk%2FR%2Fdb.R;h=285b2ce02c09910dc17e44cfb234461680038064;hb=302d4a36be0f3eafa0ddec0d571c56758ae40113;hp=b8a37e2398c5bf09b06cee1cbfaf3cef4a54295d;hpb=471712024198cdd7de3c82b1e4f0e7af9a65f26a;p=cran2deb.git

diff --git a/trunk/R/db.R b/trunk/R/db.R
index b8a37e2..285b2ce 100644
--- a/trunk/R/db.R
+++ b/trunk/R/db.R
@@ -316,14 +316,16 @@ db_record_build <- function(package, deb_version, log, success=F) {
     # Error in dbGetQuery(con, paste("INSERT OR REPLACE INTO builds", "(package,system,r_version,deb_epoch,deb_revision,db_version,success,date_stamp,time_stamp,scm_revision,log)",  :
     #   error in evaluating the argument 'statement' in selecting a method for function 'dbGetQuery'
 
-    log = paste(log,collapse='\n')
-    end = nchar(log)
-    max_log_len = 1024
+    log <- paste(log,collapse='\n')
+    end <- nchar(log)
+    max_log_len <- 1024
     if (end > max_log_len) {
-        log = db_quote(substr(log,end-max_log_len,end))
+        log <- db_quote(substr(log,end-max_log_len,end))
+    } else {
+        log <- db_quote(substr(log))
     }
     con <- db_start()
-    o <-options(digits.secs = 6)
+    o <- options(digits.secs = 6)
     sqlcmd <- paste('INSERT OR REPLACE INTO builds'
                     ,'(package,system,r_version,deb_epoch,deb_revision,db_version,success,date_stamp,time_stamp,scm_revision,log)'
                     ,'VALUES'