Revision: 75260 http://trac.macports.org/changeset/75260 Author: jmr@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