Ignore:
Timestamp:
Oct 25, 2002, 12:19:48 AM (16 years ago)
Author:
landonf
Message:

Remove a variable if we delete the last item in the list

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r1136 r1139  
    7272                        ldelete ${option} \$val \n\
    7373                    \} \n\
    74                          if \{\[info exists option_procs($option)\]\} \{ \n\
    75                                 foreach p \$option_procs($option) \{ \n\
    76                                         eval \"\$p $option delete \$args\" \n\
    77                                 \} \n\
    78                          \} \n\
     74                    if \{\[string length \$${option}\] == 0\} \{ \n\
     75                        unset ${option} \n\
     76                    \} \n\
     77                        if \{\[info exists option_procs($option)\]\} \{ \n\
     78                            foreach p \$option_procs($option) \{ \n\
     79                                eval \"\$p $option delete \$args\" \n\
     80                        \} \n\
     81                    \} \n\
    7982                \} \n\
    8083        \}"
Note: See TracChangeset for help on using the changeset viewer.