Ignore:
Timestamp:
Jun 12, 2014, 12:54:27 PM (6 years ago)
Author:
cal@…
Message:

base: port1.0: distcheck: Handle SIGINT, SIGTERM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portdistcheck.tcl

    r119683 r120943  
    8686                    ui_debug [format [msgcat::mc "Checking %s from %s"] $distfile $site]
    8787                    set file_url [portfetch::assemble_url $site $distfile]
    88                     if {[catch {set urlnewer [curl isnewer {*}$curl_options $file_url $port_moddate]} error]} {
    89                         ui_warn "couldn't fetch $file_url for $subport ($error)"
    90                     } else {
     88                    try {
     89                        set urlnewer [curl isnewer {*}$curl_options $file_url $port_moddate]
    9190                        if {$urlnewer} {
    9291                            ui_warn "port $subport: $file_url is newer than Portfile"
    9392                        }
    9493                        incr count
     94                    } catch {{POSIX SIG SIGINT} eCode eMessage} {
     95                        ui_debug [msgcat::mc "Aborted due to SIGINT"]
     96                        throw
     97                    } catch {{POSIX SIG SIGTERM} eCode eMessage} {
     98                        ui_debug [msgcat::mc "Aborted due to SIGTERM"]
     99                        throw
     100                    } catch {{*} eCode eMessage} {
     101                        ui_debug [msgcat::mc "couldn't fetch %s for %s (%s)" $file_url $subport $eMessage]
    95102                    }
    96103                }
     
    103110                    ui_debug [format [msgcat::mc "Checking %s from %s"] $distfile $site]
    104111                    set file_url [portfetch::assemble_url $site $distfile]
    105                     if {[catch {set urlsize [curl getsize {*}$curl_options $file_url]} error]} {
    106                         ui_warn "couldn't fetch $file_url for $subport ($error)"
    107                     } else {
     112                    try {
     113                        set urlsize [curl getsize {*}$curl_options $file_url]
    108114                        incr count
    109115                        if {$urlsize > 0} {
     
    112118                            break
    113119                        }
     120                    } catch {{POSIX SIG SIGINT} eCode eMessage} {
     121                        ui_debug [msgcat::mc "Aborted due to SIGINT"]
     122                        throw
     123                    } catch {{POSIX SIG SIGTERM} eCode eMessage} {
     124                        ui_debug [msgcat::mc "Aborted due to SIGTERM"]
     125                        throw
     126                    } catch {{*} eCode eMessage} {
     127                        ui_debug [msgcat::mc "couldn't fetch %s for %s (%s)" $file_url $subport $eMessage]
    114128                    }
    115129                }
Note: See TracChangeset for help on using the changeset viewer.