X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=trunk%2FR%2Fbuild.R;h=1839e016705ae6b97c8115e9d264082abbf8419c;hb=c8295475004d41bf3e35cf42793a2d8dd0dc647e;hp=7c4f617b0d46d9d300acc897d1faf47f99c9c911;hpb=c48d582b7c5d15d1a57c56f7ff81b8f4168f282f;p=cran2deb.git

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()