Ticket #19138: patch-port.tcl.diff
File patch-port.tcl.diff, 1.1 KB (added by lperry (Perry Lee), 16 years ago) |
---|
-
port.tcl
2233 2233 2234 2234 # Compare versions, first checking epoch, then version, then revision 2235 2235 set comp_result [expr $installed_epoch - $latest_epoch] 2236 set epoch_result $comp_result 2236 2237 if { $comp_result == 0 } { 2238 set epoch_result 0 2237 2239 set comp_result [rpm-vercomp $installed_version $latest_version] 2238 2240 if { $comp_result == 0 } { 2239 2241 set comp_result [rpm-vercomp $installed_revision $latest_revision] … … 2251 2253 } else { 2252 2254 set relation "<" 2253 2255 } 2254 2256 2257 # If the epoch has incremented, set the flag 2258 if {$epoch_result != 0} { 2259 set flag E 2260 } 2261 2255 2262 # Emit information 2256 2263 if {$comp_result < 0 || [macports::ui_isset ports_verbose]} { 2257 2264