[123096] trunk/base/src/port1.0/portlint.tcl

[ryandesign at macports.org]

Revision: 123096
          https://trac.macports.org/changeset/123096
Author:   ryandesign at macports.org
Date:     2014-08-04 23:46:24 -0700 (Mon, 04 Aug 2014)
Log Message:
-----------
portlint.tcl: increment error count for each error

Modified Paths:
--------------
    trunk/base/src/port1.0/portlint.tcl

Modified: trunk/base/src/port1.0/portlint.tcl
===================================================================
--- trunk/base/src/port1.0/portlint.tcl	2014-08-05 05:20:10 UTC (rev 123095)
+++ trunk/base/src/port1.0/portlint.tcl	2014-08-05 06:46:24 UTC (rev 123096)
@@ -326,6 +326,7 @@
                 && ![regexp {^\s*reinplace} $line]
                 && ![regexp {^\s*system.*\Wsed\W} $line]} {
             ui_error "Line $lineno hardcodes /opt/local, use \${prefix} instead"
+            incr errors
         }
 
         ### TODO: more checks to Portfile syntax
@@ -578,6 +579,7 @@
             # space instead of hyphen
             if {[string is double -strict $test]} {
                 ui_error "Invalid license '${prev} ${test}': missing hyphen between ${prev} ${test}"
+                incr errors
 
             # missing hyphen
             } elseif {![string equal -nocase "X11" $test]} {
@@ -592,6 +594,7 @@
                         set license_end [string index $subtest end]
                         if {"+" eq $license_end || [string is integer -strict $license_end]} {
                             ui_error "invalid license '${test}': missing hyphen before version"
+                            incr errors
                         }
                     }
                 }
@@ -600,12 +603,15 @@
             if {[string equal -nocase "BSD-2" $test]} {
                 # BSD-2 => BSD
                 ui_error "Invalid license '${test}': use BSD instead"
+                incr errors
             } elseif {[string equal -nocase "BSD-3" $test]} {
                 # BSD-3 => BSD
                 ui_error "Invalid license '${test}': use BSD instead"
+                incr errors
             } elseif {[string equal -nocase "BSD-4" $test]} {
                 # BSD-4 => BSD-old
                 ui_error "Invalid license '${test}': use BSD-old instead"
+                incr errors
             }
 
             set prev $test
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140804/1547bfc6/attachment-0001.html>