Ticket #19138: patch-port.tcl.diff

port.tcl

@@ -2233 +2233 @@
             
             # Compare versions, first checking epoch, then version, then revision
             set comp_result [expr $installed_epoch - $latest_epoch]
+            set epoch_result $comp_result
             if { $comp_result == 0 } {
+                set epoch_result 0
                 set comp_result [rpm-vercomp $installed_version $latest_version]
                 if { $comp_result == 0 } {
                     set comp_result [rpm-vercomp $installed_revision $latest_revision]
@@ -2251 +2253 @@
                 } else {
                     set relation "<"
                 }
-                
+
+                # If the epoch has incremented, set the flag
+                if {$epoch_result != 0} {
+                    set flag E
+                }
+
                 # Emit information
                 if {$comp_result < 0 || [macports::ui_isset ports_verbose]} {