lintian: r1293 - in trunk: checks debian

[djpig@debian.org]

Author: djpig
Date: 2008-05-01 19:30:25 +0200 (Thu, 01 May 2008)
New Revision: 1293

Modified:
   trunk/checks/copyright-file
   trunk/debian/changelog
Log:
* checks/copyright-file:
  + Also apply the "possible-gpl-code-linked-with-openssl" checks
    to Pre-Depends.


Modified: trunk/checks/copyright-file
===================================================================
--- trunk/checks/copyright-file	2008-05-01 17:28:09 UTC (rev 1292)
+++ trunk/checks/copyright-file	2008-05-01 17:30:25 UTC (rev 1293)
@@ -252,13 +252,17 @@
 # or Artistic licensing or with an exception or exemption.
 if ($gpl || m,/usr/share/common-licenses/GPL,) {
     unless (m,exception|exemption|/usr/share/common-licenses/(?!GPL)\S,) {
-        if (open(DEP, '<', 'fields/depends')) {
-            my @depends = split (/\s*,\s*/, scalar <DEP>);
-            close DEP;
-            if (grep { /^libssl[0-9.]+(\s|\z)/ && !/\|/ } @depends) {
-                tag 'possible-gpl-code-linked-with-openssl';
-            }
-        }
+	my @depends;
+	if (open(DEP, '<', 'fields/depends')) {
+	    @depends = split (/\s*,\s*/, scalar <DEP>);
+	}
+	if (open(DEP, '<', 'fields/pre-depends')) {
+	    push @depends, split (/\s*,\s*/, scalar <DEP>);
+	}
+	close DEP;
+	if (grep { /^libssl[0-9.]+(\s|\z)/ && !/\|/ } @depends) {
+	    tag 'possible-gpl-code-linked-with-openssl';
+	}
     }
 }
 

Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog	2008-05-01 17:28:09 UTC (rev 1292)
+++ trunk/debian/changelog	2008-05-01 17:30:25 UTC (rev 1293)
@@ -1,5 +1,8 @@
 lintian (1.23.48) UNRELEASED; urgency=low
 
+  * checks/copyright-file:
+    + [FL] Also apply the "possible-gpl-code-linked-with-openssl" checks
+      to Pre-Depends.
   * checks/version-substvars:
     + [FL] Also apply the "not-binnmuable-*" checks to Pre-Depends.
       (Closes: #472247)