Changeset 146634 for trunk/base


Ignore:
Timestamp:
Mar 14, 2016, 4:45:05 PM (4 years ago)
Author:
petr@…
Message:

base: use try -pass_signal option in some places in macports.tcl

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/macports1.0/macports.tcl

    r141412 r146634  
    26222622                    set verboseflag ""
    26232623                }
    2624 
    2625                 try {
     2624                try -pass_signal {
    26262625                    curl fetch {*}$progressflag $source $tarpath
    2627                 } catch {{POSIX SIG SIGINT} eCode eMessage} {
    2628                     throw
    2629                 } catch {{POSIX SIG SIGTERM} eCode eMessage} {
    2630                     throw
    26312626                } catch {{*} eCode eMessage} {
    26322627                    ui_error [msgcat::mc "Fetching %s failed: %s" $source $eMessage]
     
    27502745            ui_warn "Can't open index file for source: $source"
    27512746        } else {
    2752             try {
     2747            try -pass_signal {
    27532748                incr found 1
    27542749                while {[gets $fd line] >= 0} {
     
    30503045        return -code error
    30513046    } else {
    3052         try {
     3047        try -pass_signal {
    30533048            set offset [tell $indexfd]
    30543049            set quicklist {}
     
    30653060            }
    30663061            puts -nonewline $quickfd $quicklist
    3067         } catch {{POSIX SIG SIGINT} eCode eMessage} {
    3068             throw
    3069         } catch {{POSIX SIG SIGTERM} eCode eMessage} {
    3070             throw
    30713062        } catch {{*} eCode eMessage} {
    30723063            ui_warn "It looks like your PortIndex file $index may be corrupt."
Note: See TracChangeset for help on using the changeset viewer.