+ else { # copy the build results into the appropriate location
+ changes.fn <- list.files(path=dirname(pkg$path),pattern="\\.changes$")
+ changes.file <- readLines(file.path(dirname(pkg$path),changes.fn))
+ ## extract out the files that belong to the changes file
+ srcpkg.files <- gsub(".+ ","",changes.file[(which(changes.file=="Files: ")+1):NROW(changes.file)])
+ for (file in c(srcpkg.files,changes.fn)) {
+ file.copy(file.path(dirname(pkg$path),file),file.path(pbuilder_results,file));
+ }
+ }