+build_debian_srcpkg <- function(pkg) {
+# wd <- getwd()
+ #notice(paste("Now in path ",wd,"\n",sep=""))
+# setwd(pkg$path)
+
+ 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)
+ if (ret != 0) {
+ fail('Failed to build package.')
+ }
+ return(ret);
+}
+