Ticket #2697: patch-port.tcl

File patch-port.tcl, 604 bytes (added by kballard (Lily Ballard), 20 years ago)

Patch against port.tcl

Line 
1Index: port.tcl
2===================================================================
3RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/port/port.tcl,v
4retrieving revision 1.70
5diff -u -r1.70 port.tcl
6--- port.tcl    17 Feb 2005 17:08:54 -0000      1.70
7+++ port.tcl    17 Feb 2005 18:41:30 -0000
8@@ -247,7 +247,7 @@
9                        }
10                        array set portinfo [lindex $result 1]
11 
12-                       puts -nonewline "$portname $portinfo(version)"
13+                       puts -nonewline "[lindex $result 0] $portinfo(version)"
14                        if {[info exists portinfo(revision)] && $portinfo(revision) > 0} { 
15                                puts -nonewline ", Revision $portinfo(revision)" 
16                        }