version: deal with bundles when generating a new build version.

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@98 edb9625f-4e0d-4859-8d74-9fd3b1da38cb

diff --git a/pkg/trunk/R/version.R b/pkg/trunk/R/version.R
index 4ea13336c8d4ecfcbb5d886cda8479b478fa1419..2d4e550e50e7aabdcc3e8d9970e0f6913e423dd5 100644 (file)
--- a/pkg/trunk/R/version.R
+++ b/pkg/trunk/R/version.R
@@ -70,6 +70,13 @@ version_update <- function(rver, prev_pkgver) {
 }
 
 new_build_version <- function(pkgname) {
+    if (!(pkgname %in% rownames(available))) {
+        bundle <- r_bundle_of(pkgname)
+        if (is.na(bundle)) {
+            fail('tried to discover new version of',pkgname,'but it does not appear to be available')
+        }
+        name <- bundle
+    }
     db_ver <- db_latest_build_version(pkgname)
     latest_r_ver <- available[pkgname,'Version']
     if (!is.na(db_ver)) {