typo! if length is *less* than one, then substitute.

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

diff --git a/pkg/trunk/R/debcontrol.R b/pkg/trunk/R/debcontrol.R
index 63d0bf0d880953f024ab16b16b935869f49bccfe..84d9933780a35d64795aa15649a9766b82bcea03 100644 (file)
--- a/pkg/trunk/R/debcontrol.R
+++ b/pkg/trunk/R/debcontrol.R
@@ -146,7 +146,7 @@ generate_control <- function(pkg) {
         long_descr <- pkg$description[1,'Description']
     }
 
-    if (length(long_descr)) {
+    if (length(long_descr) < 1) {
         # bypass lintian extended-description-is-empty for which we care not.
         long_descr <- paste('The author/maintainer of this package'
                            ,'did not care to enter a longer description.')