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

[source_changes at macosforge.org]

Revision: 19664
          http://trac.macosforge.org/projects/macports/changeset/19664
Author:   jberry at macports.org
Date:     2006-09-22 08:40:31 -0700 (Fri, 22 Sep 2006)

Log Message:
-----------
Resolve bug #8723: better messages for port outdated

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

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2006-09-22 13:37:53 UTC (rev 19663)
+++ trunk/base/src/port/port.tcl	2006-09-22 15:40:31 UTC (rev 19664)
@@ -1571,9 +1571,8 @@
 		}
 	}
 
-	if { [llength $ilist] > 0 } {
-		puts "The following installed ports are outdated:"
-	
+	set num_outdated 0
+	if { [llength $ilist] > 0 } {	
 		foreach i $ilist { 
 		
 			# Get information about the installed port
@@ -1634,13 +1633,23 @@
 				
 				# Emit information
 				if {$comp_result < 0 || [ui_isset ports_verbose]} {
+				
+					if { $num_outdated == 0 } {
+						puts "The following installed ports are outdated:"
+					}
+					incr num_outdated
+
 					puts [format "%-30s %-24s %1s" $portname "$installed_compound $relation $latest_compound" $flag]
 				}
 				
 			}
 		}
+		
+		if { $num_outdated == 0 } {
+			puts "No installed ports are outdated."
+		}
 	} else {
-		puts "No installed ports are outdated."
+		puts "No ports are installed."
 	}
 	
 	return $status

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20060922/4c8037bc/attachment.html