Ticket #19138: patch-port.tcl.diff

File patch-port.tcl.diff, 1.1 KB (added by lperry (Perry Lee), 16 years ago)

Updated on 04/09

  • port.tcl

     
    22332233           
    22342234            # Compare versions, first checking epoch, then version, then revision
    22352235            set comp_result [expr $installed_epoch - $latest_epoch]
     2236            set epoch_result $comp_result
    22362237            if { $comp_result == 0 } {
     2238                set epoch_result 0
    22372239                set comp_result [rpm-vercomp $installed_version $latest_version]
    22382240                if { $comp_result == 0 } {
    22392241                    set comp_result [rpm-vercomp $installed_revision $latest_revision]
     
    22512253                } else {
    22522254                    set relation "<"
    22532255                }
    2254                
     2256
     2257                # If the epoch has incremented, set the flag
     2258                if {$epoch_result != 0} {
     2259                    set flag E
     2260                }
     2261
    22552262                # Emit information
    22562263                if {$comp_result < 0 || [macports::ui_isset ports_verbose]} {
    22572264