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

[Mark Duling]

Very nice.  Just in case you haven't see this, there is also bug 8229:
Depencencies aren't reported correctly with multiple ports when one port
has no dependencies.

https://svn.macosforge.org/projects/macports/ticket/8229

Mark


macports-dev at lists.macosforge.org writes:
>Revision
>[ http://trac.macosforge.org/projects/macports/changeset/19664 ]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
>
>	[
>fcp://@bubbs.biola.edu,%235000280/MailBox/%23181070084#trunkbasesrcportporttcl
>]trunk/base/src/port/port.tcl
> 
>
>Diff
> 
>
>Modified: trunk/base/src/port/port.tcl (19663 => 19664)
>
>
>--- 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
>
>
>_______________________________________________
>macports-changes mailing list
>macports-changes at lists.macosforge.org
>http://lists.macosforge.org/mailman/listinfo/macports-changes