RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/registry1.0/portimage.tcl,v
retrieving revision 1.15
diff -u -r1.15 portimage.tcl
|
|
|
209 | 209 | set ilist [registry::installed $name $v] |
210 | 210 | if { [string equal $v ""] } { |
211 | 211 | if { [llength $ilist] > 1 } { |
212 | | ui_msg "$UI_PREFIX [msgcat::mc "The following versons of $name are currently installed:"]" |
| 212 | ui_msg "$UI_PREFIX [msgcat::mc "The following versions of $name are currently installed:"]" |
213 | 213 | foreach i $ilist { |
214 | 214 | set iname [lindex $i 0] |
215 | 215 | set iversion [lindex $i 1] |
RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/registry1.0/portuninstall.tcl,v
retrieving revision 1.13
diff -u -r1.13 portuninstall.tcl
|
|
|
44 | 44 | |
45 | 45 | set ilist [registry::installed $portname $v] |
46 | 46 | if { [llength $ilist] > 1 } { |
47 | | ui_msg "$UI_PREFIX [msgcat::mc "The following versons of $portname are currently installed:"]" |
| 47 | ui_msg "$UI_PREFIX [msgcat::mc "The following versions of $portname are currently installed:"]" |
48 | 48 | foreach i $ilist { |
49 | 49 | set iname [lindex $i 0] |
50 | 50 | set iversion [lindex $i 1] |
RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/registry1.0/registry.tcl,v
retrieving revision 1.10
diff -u -r1.10 registry.tcl
|
|
|
209 | 209 | set ilist [registry::installed $portname $portversion] |
210 | 210 | |
211 | 211 | if { [llength $ilist] > 1 } { |
212 | | puts "The following versons of $portname are currently installed:" |
| 212 | puts "The following versions of $portname are currently installed:" |
213 | 213 | foreach i $ilist { |
214 | 214 | set iname [lindex $i 0] |
215 | 215 | set iversion [lindex $i 1] |