lint: Adjust file-name length test for out-of-tree file names.

* guix/scripts/lint.scm (check-patch-file-names): Adjust file-name-length calculation.
2017-11-28 15:52:01 +01:00 · 2017-11-28 15:52:01 +01:00 · 0a154c15a8
parent eef01cfe8e
commit 0a154c15a8
1 changed files with 4 additions and 1 deletions
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@ -618,7 +618,10 @@ patch could not be found."
          (max    99))
      (for-each (match-lambda
                  ((? string? patch)
-                   (when (> (+ margin (- (string-length patch) prefix))
+                   (when (> (+ margin (if (string-prefix? %distro-directory
+                                                          patch)
+                                          (- (string-length patch) prefix)
+                                          (string-length patch)))
                            max)
                     (emit-warning
                      package