Skip to content
Permalink
Browse files

Simplify curl verbosity handling

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@227 d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
Jordan K. Hubbard
Jordan K. Hubbard committed Aug 21, 2002
1 parent 70cc120 commit 67876e121c894514ea806ba5db19acc0b5b81c57
Showing with 3 additions and 5 deletions.
  1. +3 −5 src/port1.0/portfetch.tcl
@@ -48,7 +48,7 @@ proc checkfiles {args} {
}

proc fetchfiles {args} {
global distpath all_dist_files master_sites UI_PREFIX ports_quiet ports_verbose
global distpath all_dist_files master_sites UI_PREFIX ports_verbose

if {![file isdirectory $distpath]} {
file mkdir $distpath
@@ -59,12 +59,10 @@ proc fetchfiles {args} {
ui_info "$UI_PREFIX $distfile doesn't seem to exist in $distpath"
foreach site $master_sites {
ui_msg "$UI_PREFIX Attempting to fetch $distfile from $site"
if [tbool ports_quiet] {
set verboseflag -s
} elseif [tbool ports_verbose] {
} if [tbool ports_verbose] {
set verboseflag -v
} else {
set verboseflag ""
set verboseflag "-s"
}
if ![catch {system curl ${verboseflag} -o ${distpath}/${distfile} ${site}${distfile} 2>&1} result] {
set fetched 1

0 comments on commit 67876e1

Please sign in to comment.
You can’t perform that action at this time.