[41511] trunk/base/src

[blb at macports.org]

Revision: 41511
          http://trac.macports.org/changeset/41511
Author:   blb at macports.org
Date:     2008-11-04 18:50:05 -0800 (Tue, 04 Nov 2008)
Log Message:
-----------
lint command - add --nitpick option; ticket #14799

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

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2008-11-05 00:23:45 UTC (rev 41510)
+++ trunk/base/src/port/port.tcl	2008-11-05 02:50:05 UTC (rev 41511)
@@ -2697,6 +2697,7 @@
     variants    {index}
     clean       {all archive dist work}
     mirror      {new}
+    lint        {nitpick}
 }
 
 ##

Modified: trunk/base/src/port1.0/portlint.tcl
===================================================================
--- trunk/base/src/port1.0/portlint.tcl	2008-11-05 00:23:45 UTC (rev 41510)
+++ trunk/base/src/port1.0/portlint.tcl	2008-11-05 02:50:05 UTC (rev 41511)
@@ -146,7 +146,7 @@
 }
 
 proc lint_main {args} {
-	global UI_PREFIX portname portpath portresourcepath
+	global UI_PREFIX portname portpath portresourcepath ports_lint_nitpick
 	set portfile ${portpath}/Portfile
 	set portdirs [split ${portpath} /]
 	set last [llength $portdirs]
@@ -162,7 +162,11 @@
     ###################################################################
     ui_debug "$portfile"
     
-    set nitpick false
+    if {[info exists ports_lint_nitpick] && $ports_lint_nitpick eq "yes"} {
+        set nitpick true
+    } else {
+        set nitpick false
+    }
 
     set topline_number 1
     set require_blank false
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20081104/2bb76d7a/attachment.html>