From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 25 Jan 2012 00:41:06 +0000 (-0800)
Subject: change to results directory
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c8295475004d41bf3e35cf42793a2d8dd0dc647e;hp=c48d582b7c5d15d1a57c56f7ff81b8f4168f282f;p=cran2deb.git

change to results directory
---

diff --git a/trunk/R/build.R b/trunk/R/build.R
index 7c4f617..1839e01 100644
--- a/trunk/R/build.R
+++ b/trunk/R/build.R
@@ -128,21 +128,21 @@ needs_build <- function(name,version) {
 }
 
 build_debian_srcpkg <- function(pkg) {
-#    wd <- getwd()
+    wd <- getwd()
     #notice(paste("Now in path ",wd,"\n",sep=""))
-#    setwd(pkg$path)
-    
+    setwd(pbuilder_results)
+   
     notice('building Debian source package',pkg$debname,paste('(',pkg$debversion,')',sep=''),'in',getwd(),'...')
 
     cmd = paste('dpkg-source','-b',pkg$path)
     notice(paste("Executing ",'"',cmd,'"'," from directory '",getwd(),"'.\n",sep=""))
     ret = log_system(cmd)
-#    setwd(wd)
+    setwd(wd)
     if (ret != 0) {
         fail('Failed to build package.')
     }
     return(ret);
-}
+ls}
 
 build_debian <- function(pkg) {
     wd <- getwd()