Changeset 19664 for trunk/base


Ignore:
Timestamp:
Sep 22, 2006, 3:40:31 PM (14 years ago)
Author:
jberry@…
Message:

Resolve bug #8723: better messages for port outdated

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port/port.tcl

    r19376 r19664  
    15721572        }
    15731573
    1574         if { [llength $ilist] > 0 } {
    1575                 puts "The following installed ports are outdated:"
    1576        
     1574        set num_outdated 0
     1575        if { [llength $ilist] > 0 } {   
    15771576                foreach i $ilist {
    15781577               
     
    16351634                                # Emit information
    16361635                                if {$comp_result < 0 || [ui_isset ports_verbose]} {
     1636                               
     1637                                        if { $num_outdated == 0 } {
     1638                                                puts "The following installed ports are outdated:"
     1639                                        }
     1640                                        incr num_outdated
     1641
    16371642                                        puts [format "%-30s %-24s %1s" $portname "$installed_compound $relation $latest_compound" $flag]
    16381643                                }
     
    16401645                        }
    16411646                }
     1647               
     1648                if { $num_outdated == 0 } {
     1649                        puts "No installed ports are outdated."
     1650                }
    16421651        } else {
    1643                 puts "No installed ports are outdated."
     1652                puts "No ports are installed."
    16441653        }
    16451654       
Note: See TracChangeset for help on using the changeset viewer.