Ticket #8723: port.tcl.diff

base/src/port/port.tcl

@@ -1572 +1572 @@
         }
 
         if { [llength $ilist] > 0 } {
-                puts "The following installed ports are outdated:"
+                set num_outdated 0
         
                 foreach i $ilist { 
                 
@@ -1634 +1634 @@
                                 
                                 # Emit information
                                 if {$comp_result < 0 || [ui_isset ports_verbose]} {
+                                
+                                        # Check if this is the first outdated port listed
+                                        if {$num_outdated == 0} {
+                                                puts "The following installed ports are outdated:"
+                                        }
+                                
                                         puts [format "%-30s %-24s %1s" $portname "$installed_compound $relation $latest_compound" $flag]
+                                        
+                                        set num_outdated $num_outdated+1
                                 }
                                 
                         }
                 }
-        } else {
+                
+                if {$num_outdated == 0} {
                 puts "No installed ports are outdated."
         }
         
+        } else {
+                puts "No ports are installed."
+        }
+        
         return $status
 }