change to results directory

diff --git a/trunk/R/build.R b/trunk/R/build.R
index 7c4f617b0d46d9d300acc897d1faf47f99c9c911..1839e016705ae6b97c8115e9d264082abbf8419c 100644 (file)
--- 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()