Changeset 14


Ignore:
Timestamp:
Aug 1, 2002, 2:46:35 AM (18 years ago)
Author:
landonf (Landon Fuller)
Message:

Check for fetch failure

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/Tcl/portfetch.1.0.tcl

    r13 r14  
    4343                        catch {exec curl -o ${distpath}/${distfile} ${site}${distfile} >&@ stdout} result
    4444                        if {$result == 0} {
     45                                set fetched 1
    4546                                break
    4647                        }
     48                }
     49                if {![info exists fetched]} {
     50                        return -1
    4751                }
    4852        }
Note: See TracChangeset for help on using the changeset viewer.