- for (license in strsplit(chomp(pkg$description[1,'License'])
- ,'[[:space:]]*\\|[[:space:]]*')[[1]]) {
- if (is_acceptable_license(license)) {
- accept=license
+ if (verbose) { cat("accept_license: pkg:\n"); print(pkg$srcname) }
+ license<-pkg$description[1,'License']
+ if (verbose) { cat(" license:\n"); print(license) }
+
+ for (l in strsplit(chomp(license),'[[:space:]]*\\|[[:space:]]*')[[1]]) {
+ if (verbose) cat("Investigating: '",l,"'\n",sep="")
+ if (is_acceptable_license(l)) {
+ accept=l