X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=trunk%2FR%2Fdebiannaming.R;h=724bca3a0ea4386a69383a15c44375ca685936cc;hb=834b0ed4404a9bae22bc640c33b2abf6489e4481;hp=8d11be33b1bdb2f81d50c3590ad6a9e21b48d921;hpb=af58d863a1f963c86f12fe2e6f1edc3943b78228;p=cran2deb.git

diff --git a/trunk/R/debiannaming.R b/trunk/R/debiannaming.R
index 8d11be3..724bca3 100644
--- a/trunk/R/debiannaming.R
+++ b/trunk/R/debiannaming.R
@@ -32,14 +32,15 @@ pkgname_as_debian <- function(name,repopref=NULL,version=NULL,binary=T,build=F)
         # XXX: data.frame rownames are unique, so always override repopref for
         #      now.
         debname = tolower(name)
-        if (binary) {
+### The source name should always be the same as the binary name
+###        if (binary) {
             if (name %in% rownames(available)) {
                 repopref <- tolower(repourl_as_debian(available[name,'Repository']))
             } else if (is.null(repopref)) {
                 repopref <- 'unknown'
             }
             debname = paste('r',repopref,debname,sep='-')
-        }
+###        }
     }
     if (!is.null(version) && length(version) > 1) {
         debname = paste(debname,' (',version,')',sep='')