macports/macports-base
0
0
Fork 0
mirror of https://github.com/macports/macports-base.git synced 2026-07-12 18:18:43 -07:00
Code Issues Packages Projects Releases Wiki Activity

Export only needed options as globals

Browse Source 
git-svn-id: https://svn.macports.org/repository/macports/trunk/base@17 d073be05-634f-4543-b044-5fe20cf6d1d6
This commit is contained in:
Landon Fuller
2002-08-01 04:16:51 +00:00
parent 0ab7b0fe66
commit 137e38d882
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Tcl/portfetch.1.0.tcl
+3 -3
View File
@@ -9,7 +9,7 @@ namespace eval portfetch {
}
# define globals: distname master_sites distfiles patchfiles dist_subdir
globals portfetch::options distname master_sites extract_sufx distfiles patchfiles dist_subdir use_zip use_bzip2 all_dist_files
globals portfetch::options distname distfiles patchfiles dist_subdir all_dist_files
# define options: distname master_sites
options portfetch::options distname master_sites extract_sufx distfiles extract_only patchfiles dist_subdir use_zip use_bzip2
@@ -27,7 +27,7 @@ proc portfetch::suffix {distname} {
}
proc portfetch::checkfiles {args} {
global portpath master_sites distpath
global portpath distpath
if {![file isdirectory $distpath]} {
file mkdir $distpath
@@ -35,7 +35,7 @@ proc portfetch::checkfiles {args} {
foreach distfile [getval portfetch::options distfiles] {
if {![file isfile $distpath/$distfile]} {
puts "$distfile doesn't seem to exist in $distpath"
foreach site $master_sites {
foreach site [getval portfetch::options master_sites] {
puts "Attempting to fetch from $site"
if ![catch {exec curl -o ${distpath}/${distfile} ${site}${distfile} >&@ stdout} result] {
set fetched 1