| 1 | Index: src/port1.0/portutil.tcl |
|---|
| 2 | =================================================================== |
|---|
| 3 | RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/port1.0/portutil.tcl,v |
|---|
| 4 | retrieving revision 1.167 |
|---|
| 5 | diff -u -r1.167 portutil.tcl |
|---|
| 6 | --- src/port1.0/portutil.tcl 13 Sep 2004 05:44:44 -0000 1.167 |
|---|
| 7 | +++ src/port1.0/portutil.tcl 6 Dec 2004 23:40:48 -0000 |
|---|
| 8 | @@ -97,16 +97,15 @@ |
|---|
| 9 | # Arguments: <list of options> |
|---|
| 10 | proc options {args} { |
|---|
| 11 | foreach option $args { |
|---|
| 12 | - eval "proc $option {args} \{ \n\ |
|---|
| 13 | + eval "proc $option {args} \{ \n\ |
|---|
| 14 | global ${option} user_options option_procs \n\ |
|---|
| 15 | \if \{!\[info exists user_options(${option})\]\} \{ \n\ |
|---|
| 16 | set ${option} \$args \n\ |
|---|
| 17 | \} \n\ |
|---|
| 18 | \}" |
|---|
| 19 | - |
|---|
| 20 | eval "proc ${option}-delete {args} \{ \n\ |
|---|
| 21 | global ${option} user_options option_procs \n\ |
|---|
| 22 | - \if \{!\[info exists user_options(${option})\]\} \{ \n\ |
|---|
| 23 | + \if \{!\[info exists user_options(${option})\]\ && \[info exists ${option}\]\} \{ \n\ |
|---|
| 24 | foreach val \$args \{ \n\ |
|---|
| 25 | set ${option} \[ldelete \$\{$option\} \$val\] \n\ |
|---|
| 26 | \} \n\ |
|---|
