[75260] trunk/base/src/port/port.tcl

[jmr at macports.org]

Revision: 75260
          http://trac.macports.org/changeset/75260
Author:   jmr at macports.org
Date:     2011-01-18 23:28:43 -0800 (Tue, 18 Jan 2011)
Log Message:
-----------
omit -- separator when --line is used with port info

Modified Paths:
--------------
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2011-01-19 06:32:28 UTC (rev 75259)
+++ trunk/base/src/port/port.tcl	2011-01-19 07:28:43 UTC (rev 75260)
@@ -1909,6 +1909,7 @@
         # Tune for sort(1)
         if {[info exists options(ports_info_line)]} {
             array unset options ports_info_line
+            set noseparator 1
             set show_label 0
             set field_sep "\t"
             set subfield_sep ","
@@ -2082,7 +2083,9 @@
                 puts [join $fields_tried ", "]
             }
         }
-        set separator "--\n"
+        if {![info exists noseparator]} {
+            set separator "--\n"
+        }
     }
     
     return $status
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110118/9883fc86/attachment.html>