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