[23648] branches/release_1_4/base/src/port/port.tcl

[source_changes at macosforge.org]

Revision: 23648
          http://trac.macosforge.org/projects/macports/changeset/23648
Author:   jmpp at macports.org
Date:     2007-04-05 22:18:45 -0700 (Thu, 05 Apr 2007)

Log Message:
-----------
Merging r23390: Fix tickets #11683 and #10766.

Modified Paths:
--------------
    branches/release_1_4/base/src/port/port.tcl

Modified: branches/release_1_4/base/src/port/port.tcl
===================================================================
--- branches/release_1_4/base/src/port/port.tcl	2007-04-06 05:14:27 UTC (rev 23647)
+++ branches/release_1_4/base/src/port/port.tcl	2007-04-06 05:18:45 UTC (rev 23648)
@@ -1499,14 +1499,14 @@
 
 proc action_installed { action portlist opts } {
 	set status 0
+	set restrictedList 0
 	set ilist {}
 	if { [llength $portlist] } {
+		set restrictedList 1
 		foreachport $portlist {
 			set composite_version [composite_version $portversion [array get variations]]
 			if { [catch {set ilist [concat $ilist [registry::installed $portname $composite_version]]} result] } {
-				if {[string match "* not registered as installed." $result]} {
-					puts "Port $portname is not installed."
-				} else {
+				if {![string match "* not registered as installed." $result]} {
 					global errorInfo
 					ui_debug "$errorInfo"
 					break_softcontinue "port installed failed: $result" 1 status
@@ -1537,6 +1537,8 @@
 				puts "  $iname @${iversion}_${irevision}${ivariants} (active)"
 			}
 		}
+	} elseif { $restrictedList } {
+		puts "None of the specified ports are installed."
 	} else {
 		puts "No ports are installed."
 	}
@@ -1553,7 +1555,9 @@
 
 	# If port names were supplied, limit ourselves to those port, else check all installed ports
 	set ilist {}
+	set restrictedList 0
 	if { [llength $portlist] } {
+		set restrictedList 1
 		foreach portspec $portlist {
 			array set port $portspec
 			set portname $port(name)
@@ -1655,6 +1659,8 @@
 		if { $num_outdated == 0 } {
 			puts "No installed ports are outdated."
 		}
+	} elseif { $restrictedList } {
+		puts "None of the specified ports are outdated."
 	} else {
 		puts "No ports are installed."
 	}

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070405/0957b5fd/attachment.html