From 6ffabe7cc0d4d29c97c77819426445b38cc9b68b Mon Sep 17 00:00:00 2001
From: blundellc <blundellc@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Sat, 13 Sep 2008 13:28:43 +0000
Subject: [PATCH] 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
---
 pkg/trunk/R/debcontrol.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pkg/trunk/R/debcontrol.R b/pkg/trunk/R/debcontrol.R
index 63d0bf0..84d9933 100644
--- 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.')
-- 
2.39.5