From: blundellc <blundellc@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Sat, 13 Sep 2008 13:20:27 +0000 (+0000)
Subject: sysreq: remove depth 2 nesting of brackets in comments.
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9a54258b529d4bb994abb6cba3c833422e1c5722;p=cran2deb.git

sysreq: remove depth 2 nesting of brackets in comments.

perhaps should consider using some of the pcre operator here instead, if
it is common for nested brackets in comments. (does not appear to be so
far).

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

diff --git a/pkg/trunk/R/debcontrol.R b/pkg/trunk/R/debcontrol.R
index 8ff1890..f6c14f9 100644
--- a/pkg/trunk/R/debcontrol.R
+++ b/pkg/trunk/R/debcontrol.R
@@ -55,7 +55,9 @@ sysreqs_as_debian <- function(sysreq_text) {
         # constant case
         sysreq = tolower(sysreq)
         # drop version information/comments for now
-        sysreq = gsub('[\\([][^])]*[]\\)]','',sysreq)
+        sysreq = gsub('[[][^])]*[]]','',sysreq)
+        sysreq = gsub('\\([^)]*\\)','',sysreq)
+        sysreq = gsub('[[][^])]*[]]','',sysreq)
         sysreq = gsub('version','',sysreq)
         sysreq = gsub('from','',sysreq)
         sysreq = gsub('[<>=]*[[:space:]]*[[:digit:]]+[[:digit:].+:~-]*','',sysreq)