allow for malformed tarballs (like those in tests)

git-svn-id: https://svn.r-project.org/R/trunk@88346 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: ripley

src/library/tools/R/check.R

@@ -7563,12 +7563,14 @@ add_dummies <- function(dir, Log)
                         domain = NA, call. = FALSE, immediate. = TRUE)
                 next
             }
-            if (length(contents) < 1 || !endsWith(contents[1], "/")) {
+            if (length(contents) < 1L) {
               warning(sQuote(pkg), " does not contain a directory, skipping\n",
                       domain = NA, call. = FALSE, immediate. = TRUE)
               next
+            } else {
+                ## some people omit the directory itself from the tarball
+                pkgname0 <- sub("/.*", "",  contents[1L])
             }
-            pkgname0 <- sub("/$", "",  contents[1])
         } else {
             warning(sQuote(pkg), " is neither a file nor directory, skipping\n",
                     domain = NA, call. = FALSE, immediate. = TRUE)