From 4264421b5733015abbd6c0cc779395a622fc5afb Mon Sep 17 00:00:00 2001
From: blundellc <blundellc@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Sat, 13 Sep 2008 13:15:25 +0000
Subject: [PATCH] cran2deb: permit opensource.org references and the word 'see'
 in licenses.

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@38 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---
 pkg/trunk/cran2deb | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/pkg/trunk/cran2deb b/pkg/trunk/cran2deb
index 801cba6..88c2c3d 100755
--- a/pkg/trunk/cran2deb
+++ b/pkg/trunk/cran2deb
@@ -234,12 +234,14 @@ is_acceptable_license <- function(license) {
     # uninteresting urls
     license = gsub('HTTP://WWW.GNU.ORG/[A-Z/._-]*','',license)
     license = gsub('HTTP://WWW.X.ORG/[A-Z/._-]*','',license)
+    license = gsub('HTTP://WWW.OPENSOURCE.ORG/[A-Z/._-]*','',license)
     # remove all punctuation
     license = gsub('[[:punct:]]+','',license)
     # remove any extra space introduced
     license = chomp(gsub('[[:space:]]+',' ',license))
     # redundant
     license = gsub('THE','',license)
+    license = gsub('SEE','',license)
     license = gsub('STANDARD','',license)
     license = gsub('LICEN[SC]E','',license)
     license = gsub('(GNU )?(GPL|GENERAL PUBLIC)','GPL',license)
-- 
2.39.2